|
Search: id:A072205
|
|
| |
|
| 2, 4, 11, 22, 56, 79, 137, 172, 254, 407, 466, 667, 821, 904, 1082, 1379, 1712, 1831, 2212, 2486, 2629, 3082, 3404, 3917, 4657, 5051, 5254, 5672, 5887, 6329, 8002, 8516, 9317, 9592, 11027, 11326, 12247, 13204, 13862, 14879, 15932, 16291, 18146, 18529
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
seq[n_Integer?Positive] := Module[{fn01 = 1, fn10 = 1, fnout = 1}, Do[{fn10, fn01, fnout} = {fn10 + 1, fn01 + fn10, fn01 + fnout}, {n - 1}]; {fn10, fn01, fnout}]; Ar = Flatten[ Table[ seq[ Prime[n]], {n, 1, 50}]]; a = {}; Do[a = Append[a, Ar[[n]]], {n, 2, 150, 3}]; a
|
|
CROSSREFS
|
Cf. A071988.
Equals A008837(n+2) + 1.
Adjacent sequences: A072202 A072203 A072204 this_sequence A072206 A072207 A072208
Sequence in context: A018259 A018480 A004646 this_sequence A026531 A038047 A061152
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 03 2002
|
|
|
Search completed in 0.002 seconds
|
