|
Search: id:A019460
|
|
|
| A019460 |
|
Add 1, multiply by 1, add 2, multiply by 2, etc. |
|
+0
6
|
|
| 2, 3, 3, 5, 10, 13, 39, 43, 172, 177, 885, 891, 5346, 5353, 37471, 37479, 299832, 299841, 2698569, 2698579, 26985790, 26985801, 296843811, 296843823, 3562125876, 3562125889, 46307636557, 46307636571, 648306911994
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
REFERENCES
|
New York Times, Oct 13, 1996.
|
|
LINKS
|
Nick Hobson, Python program for this sequence
|
|
MATHEMATICA
|
a[n_] := If[ OddQ@n, a[n - 1] + (n + 1)/2, a[n - 1]*n/2]; a[0] = 2; Table[ a@n, {n, 0, 28}] [From Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 21 2009]
|
|
CROSSREFS
|
Cf. A019463, A019462, A019461, A082448.
Sequence in context: A059503 A065460 A001180 this_sequence A049855 A064339 A053199
Adjacent sequences: A019457 A019458 A019459 this_sequence A019461 A019462 A019463
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
N. J. A. Sloane (njas(AT)research.att.com).
|
|
EXTENSIONS
|
Added one more term and the Mathematica coding. Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 21 2009
|
|
|
Search completed in 0.002 seconds
|
