perl -MMath::Prime::Util::GMP=":all" -E "@p=grep{is_prime($_)}1..1000; say qq($p[$_] = ),$p[$_]-($p[$_-1]-1),
(is_prime($p[$_]-$p[$_-1]-1)?' prime':'')for 1..$#p"