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} ]
Select[LinearRecurrence[{0, 10, 0, -1}, {1, 2, 8, 19}, 100], PrimeQ] (* Harvey P. Dale, May 12 2026 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Apr 15 2007, Apr 26 2007
STATUS
approved
