Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A265822
If n is 0, 1, or prime, a(n) = n; else a(n) = a(n-1) + a(n-2).
0
0, 1, 2, 3, 5, 5, 10, 7, 17, 24, 41, 11, 52, 13, 65, 78, 143, 17, 160, 19, 179, 198, 377, 23, 400, 423, 823, 1246, 2069, 29, 2098, 31, 2129, 2160, 4289, 6449, 10738, 37, 10775, 10812, 21587, 41, 21628, 43, 21671, 21714, 43385, 47, 43432, 43479, 86911, 130390, 217301, 53, 217354, 217407, 434761
OFFSET
0,3
FORMULA
See the name.
EXAMPLE
a(9) = a(8) + a(7)
= a(7) + a(6) + 7
= a(5) + a(4) + 14
= a(3) + a(2) + 19
= 24
MATHEMATICA
a[0] = 0; a[1] = 1; a[n_] := a[n] = If[PrimeQ@ n, n, a[n - 1] + a[n - 2]]; Table[a@ n, {n, 0, 56}] (* Michael De Vlieger, Dec 15 2015 *)
CROSSREFS
Sequence in context: A322770 A257008 A338750 * A257012 A325412 A265562
KEYWORD
nonn,easy
AUTHOR
Nicholas Drozd, Dec 15 2015
EXTENSIONS
More terms from Michael De Vlieger, Dec 15 2015
STATUS
approved