|
Search: id:A142885
|
|
|
| A142885 |
|
Primes that appear in the sequence: a(n)=If(a(n-1) is prime,1, else a(n-1)+a(m-2)). |
|
+0
1
|
|
| 2, 3, 5, 7, 17, 19, 41, 43, 89, 181, 16253, 341347, 682697, 682699, 23211821, 1468054608334661, 1029706322806826946897683, 1497696634290068254884323345209574043499520759403786997
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
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 this_sequence A108547 A116947 A066277
Adjacent sequences: A142882 A142883 A142884 this_sequence A142886 A142887 A142888
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Sep 28 2008
|
|
|
Search completed in 0.002 seconds
|
