|
Search: id:A118471
|
|
|
| A118471 |
|
a(0)=1. a(n) = a(n-1)*(n+1), if n is in the sequence. a(n)= a(n-1) +1, if n is missing from the sequence. |
|
+0
1
|
|
| 1, 2, 6, 7, 8, 9, 63, 504, 4536, 45360, 45361, 45362, 45363, 45364, 45365, 45366, 45367, 45368, 45369, 45370, 45371, 45372, 45373, 45374, 45375, 45376, 45377, 45378, 45379, 45380, 45381, 45382, 45383, 45384, 45385, 45386, 45387, 45388
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
MATHEMATICA
|
f[s_] := Block[{n = Length@s}, Append[s, If[MemberQ[s, n], s[[ -1]](n + 1), s[[ -1]] + 1]]]; Nest[f, {1}, 40] (from Robert G. Wilson v (rgwv(at)rgwv.com), May 16 2006)
|
|
CROSSREFS
|
Sequence in context: A080780 A138168 A047279 this_sequence A023633 A028735 A037310
Adjacent sequences: A118468 A118469 A118470 this_sequence A118472 A118473 A118474
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Leroy Quet (qq-quet(AT)mindspring.com), May 04 2006
|
|
|
Search completed in 0.002 seconds
|
