OFFSET
1,1
COMMENTS
The next terms are too large to include, see the b-file.
LINKS
Alexander Adamchuk, Apr 26 2007, Table of n, a(n) for n = 1..9
MATHEMATICA
Do[ f = 3n(n-1)/2 + 1; If[ PrimeQ[ Sqrt[f] ], Print[ Sqrt[f] ] ], {n, 1, 150000} ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Apr 15 2007, Apr 26 2007
STATUS
approved