|
Search: id:A060729
|
|
|
| A060729 |
|
a(n+1) = a(n) + a(n minus the number of terms of the same parity as n so far). |
|
+0
1
|
|
| 1, 2, 3, 4, 6, 9, 12, 16, 19, 25, 31, 37, 49, 55, 74, 83, 108, 120, 145, 161, 198, 217, 266, 291, 346, 377, 451, 482, 565, 602, 710, 765, 885, 940, 1085, 1159, 1357, 1431, 1697, 1771, 2117, 2191, 2642, 2725, 3207, 3290, 3855, 3963, 4673, 4781
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
EXAMPLE
|
a(5) = a(4) + a(4 - the number of even terms so far) = a(4) + a(4-2) = 4 + 2 = 6.
|
|
MATHEMATICA
|
a[ 1 ] = 1; a[ 2 ] = 2; a[ n_ ] := a[ n ] = Block[ {e = 0}, Do[ If[ EvenQ[ a[ k ] ], e++ ], {k, 1, n - 1} ]; If[ OddQ[ n ], a[ n - 1 ] + a[ n - 1 - e ], a[ n - 1 ] + a[ e ] ] ]; Table[ a[ n ], {n, 1, 50} ]
|
|
CROSSREFS
|
Cf. A006336, A006604.
Sequence in context: A128166 A112249 A062437 this_sequence A155510 A058647 A073576
Adjacent sequences: A060726 A060727 A060728 this_sequence A060730 A060731 A060732
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 22 2001
|
|
|
Search completed in 0.002 seconds
|
