OFFSET
1,1
COMMENTS
From a posting by Daniel Joyce to the Sequence Fans Mailing List, Jul 19 2013
A002496 is a subsequence of this sequence. - Hans Havermann, Aug 01 2013
LINKS
Hans Havermann, Table of n, a(n) for n = 1..6735
Hans Havermann, Table of n, a(n) for n = 1..54295, output of my Mathematica program (below)
MATHEMATICA
t={}; Do[AppendTo[t, Select[Take[Table[If[n==0, a1=1; a0=0, a2=a1; a1=a0; a0=i*a1+a2], {n, 0, 60}], -58], #<10^12&]], {i, 999999}]; Select[Union[Flatten[t]], PrimeQ[#] &] (* Hans Havermann, Aug 01 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Aug 01 2013
STATUS
approved