OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
MATHEMATICA
Select[Table[n^2, {n, 300}], PrimeQ[(# + 7)/8] &] (* Ray Chandler, Oct 01 2005 *)
Select[8#-7&/@Prime[Range[1300]], IntegerQ[Sqrt[#]]&] (* Harvey P. Dale, Apr 11 2018 *)
PROG
(PARI) for(i=1, 1000, n=i^2+7; if(n%8==0&&isprime(n/8), print1(n-7, ", "))) (Klasen)
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Teofilatto, Sep 18 2005
EXTENSIONS
Extended by Lambert Klasen (lambert.klasen(AT)gmx.net) and Ray Chandler, Oct 01 2005
STATUS
approved