|
| |
|
|
A142885
|
|
Primes that appear in the sequence: a(n)=If(a(n-1) is prime,1, else a(n-1)+a(m-2)).
|
|
0
| |
|
|
2, 3, 5, 7, 17, 19, 41, 43, 89, 181, 16253, 341347, 682697, 682699, 23211821, 1468054608334661, 1029706322806826946897683, 1497696634290068254884323345209574043499520759403786997
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Interesting that at the start the primes seem to come in pairs.
|
|
|
FORMULA
| a(n)=If(a(n-1) is prime,1, else a(n-1)+a(m-2)); a(n)_out=If (a(n) is prime, a(n)).
|
|
|
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
| Sequence in context: A158085 A119833 A127049 * A108547 A116947 A066277
Adjacent sequences: A142882 A142883 A142884 * A142886 A142887 A142888
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Sep 28 2008
|
| |
|
|
