|
| |
|
|
A142884
|
|
Prime finding sequence recursion where the primes are sums of two integers: a(n)=If( a(n-1)=prime,1, else a(n-2)+a(n-3)).
|
|
0
| |
|
|
0, 1, 1, 1, 2, 1, 3, 1, 4, 4, 5, 1, 9, 6, 10, 15, 16, 25, 31, 1, 56, 32, 57, 88, 89, 1, 177, 90, 178, 267, 268, 445, 535, 713, 980, 1248, 1693, 1, 2941, 1694, 2942, 4635, 4636, 7577, 1, 12213, 7578, 12214, 19791, 19792, 32005, 39583, 51797, 1, 91380, 51798, 91381, 1
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,5
|
|
|
FORMULA
| a(n)=If( a(n-1)=prime,1, else a(n-2)+a(n-3)).
|
|
|
EXAMPLE
| 15+ 16= 31,
32+ 57= 89,
713+ 980= 1693,
19792+ 32005= 51797,
237122034+ 314186695=551308729.
|
|
|
MATHEMATICA
| Clear[a, n]; a[0] = 0; a[1] = 1; a[2] = 1; a[n_] := a[n] = If[PrimeQ[a[n - 1]], 1, a[n - 2] + a[n - 3]]; Table[a[n], {n, 0, 100}]
|
|
|
CROSSREFS
| Sequence in context: A098910 A165025 A175126 * A177687 A142878 A082904
Adjacent sequences: A142881 A142882 A142883 * A142885 A142886 A142887
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Sep 28 2008
|
| |
|
|
