A265822 If n is 0, 1, or prime, a(n) = n; else a(n) = a(n-1) + a(n-2).

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

Links

Table of n, a(n) for n=0..56.

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

Adjacent sequences: A265819 A265820 A265821 * A265823 A265824 A265825

Keyword

nonn,easy

Author

Nicholas Drozd, Dec 15 2015

Extensions

More terms from Michael De Vlieger, Dec 15 2015

Status

approved