OFFSET
1,1
LINKS
Daniel Starodubtsev, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[8 Range[300]^2+1, PrimeQ] (* Harvey P. Dale, Apr 02 2011 *)
PROG
(PARI) A090685(n) = { for(x=1, n, y = 8*x^2+1; if(isprime(y), print1(y", ")) ) }
(Magma) [ a: n in [0..350] | IsPrime(a) where a is 8*n^2+1 ]; // Vincenzo Librandi, Apr 04 2011
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Dec 18 2003
STATUS
approved