|
| |
|
|
A108585
|
|
a(n) = a(n-1)+2*A005185(n).
|
|
0
| |
|
|
2, 6, 12, 18, 26, 36, 46, 58, 70, 82, 98, 114, 130, 150, 168, 188, 210, 232, 256, 280, 304, 328, 360, 388, 416, 448, 480, 512, 544, 584, 618, 652, 692, 734, 772, 812, 856, 898, 942, 988, 1034, 1082, 1130, 1178, 1226, 1274, 1338, 1386, 1436, 1496, 1552, 1604
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
COMMENTS
| Uses A005185 as a prime-like gap sequence.
|
|
|
MATHEMATICA
| Hofstadter[0] = Hofstadter[1] = 1 Hofstadter[n_Integer?Positive] := Hofstadter[n] = Hofstadter[n - Hofstadter[n - 1]] + Hofstadter[n - Hofstadter[n - 2]] a[1] = 2; a[n_] := a[n] = a[n - 1] + 2*Hofstadter[n] c = Table[a[n], {n, 1, 200}]
|
|
|
CROSSREFS
| Cf. A005185.
Sequence in context: A085345 A032371 A162802 * A193764 A159793 A006511
Adjacent sequences: A108582 A108583 A108584 * A108586 A108587 A108588
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jul 05 2005
|
| |
|
|
