login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A118550 a(0)=1; a(n) = a(n-1) + n if n is in the sequence, a(n) = a(n-1) + 1 if n is missing from the sequence. 0
1, 2, 4, 5, 9, 14, 15, 16, 17, 26, 27, 28, 29, 30, 44, 59, 75, 92, 93, 94, 95, 96, 97, 98, 99, 100, 126, 153, 181, 210, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 297, 298, 299, 300, 301, 302, 303, 304, 305, 306, 307, 308, 309, 310, 311 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

LINKS

Table of n, a(n) for n=0..58.

MATHEMATICA

f[s_] := Block[{n = Length@s}, Append[s, If[ MemberQ[s, n], 2s[[ -1]], s[[ -1]] + 1]]]; Nest[f, {1}, 60] - Robert G. Wilson v, May 17 2006

CROSSREFS

Sequence in context: A068370 A060167 A234588 * A126697 A162406 A129282

Adjacent sequences:  A118547 A118548 A118549 * A118551 A118552 A118553

KEYWORD

easy,nonn

AUTHOR

Leroy Quet, May 03 2006

EXTENSIONS

More terms from Robert G. Wilson v, May 17 2006

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 25 09:58 EDT 2019. Contains 326324 sequences. (Running on oeis4.)