|
Search: id:A129957
|
|
|
| A129957 |
|
a(n) = n^3 if n is odd, n^3 + 1 otherwise. |
|
+0
3
|
|
| 1, 1, 9, 27, 65, 125, 217, 343, 513, 729, 1001, 1331, 1729, 2197, 2745, 3375, 4097, 4913, 5833, 6859, 8001, 9261, 10649, 12167, 13825, 15625, 17577, 19683, 21953, 24389, 27001, 29791, 32769, 35937, 39305, 42875, 46657, 50653, 54873, 59319
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
COMMENT
|
Suggested by a problem in stacking tetrahedra and cubes.
|
|
MATHEMATICA
|
f[n_] := If[Mod[n, 2] == 0, n^3 + 1, n^3]; Table[f[n], {n, 0, 30}]
|
|
CROSSREFS
|
Adjacent sequences: A129954 A129955 A129956 this_sequence A129958 A129959 A129960
Sequence in context: A112524 A011923 A029875 this_sequence A110205 A135415 A053702
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 10 2007
|
|
EXTENSIONS
|
Edited, corrected and extended by Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Jul 21 2007
|
|
|
Search completed in 0.002 seconds
|
