OFFSET
1,1
COMMENTS
Primes squared in A014688.
LINKS
Tyler Busby, Table of n, a(n) for n = 1..10000 (terms 1..106 from Zak Seidov)
PROG
(PARI) lista(nn) = {vec = vector(nn, i, i + prime(i)); pp = select(i->(issquare(i) && isprime(sqrtint(i))), vec); print(pp); } \\ Michel Marcus, Oct 09 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Apr 25 2005
EXTENSIONS
a(12) - a(16) from Michel Marcus, Oct 09 2013
a(17) onward from Zak Seidov, Mar 13 2014
STATUS
approved