OFFSET
1,1
COMMENTS
Interesting that at the start the primes seem to come in pairs.
MATHEMATICA
Clear[a, n]; a[0] = 0; a[1] = 1; a[n_] := a[n] = If[PrimeQ[a[n - 1]], 1, a[n - 1] + a[n - 2]]; Flatten[Table[If[PrimeQ[a[n]], a[n], {}], {n, 0, 400}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Sep 28 2008
STATUS
approved