%I #4 Feb 28 2015 08:28:08
%S 2,3,5,7,17,19,41,43,89,181,16253,341347,682697,682699,23211821,
%T 1468054608334661,1029706322806826946897683,
%U 1497696634290068254884323345209574043499520759403786997
%N Primes that appear in the sequence: a(n) = 1 if a(n-1) is prime; otherwise a(n) = a(n-1)+a(n-2), with a(1) = 1.
%C Interesting that at the start the primes seem to come in pairs.
%t 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}]]
%K nonn
%O 1,1
%A _Roger L. Bagula_, Sep 28 2008
|