

A094591


a(0) = 1; a(n) = n + (largest element of {a} <= n).


5



1, 2, 4, 5, 8, 10, 11, 12, 16, 17, 20, 22, 24, 25, 26, 27, 32, 34, 35, 36, 40, 41, 44, 45, 48, 50, 52, 54, 55, 56, 57, 58, 64, 65, 68, 70, 72, 73, 74, 75, 80, 82, 83, 84, 88, 90, 91, 92, 96, 97, 100, 101, 104, 105, 108, 110, 112, 114, 116, 117, 118, 119, 120, 121, 128, 130
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,2


COMMENTS

Is this A037988 + 1?
A selfdescribing sequence. Pick any number n; this n says: "There are n terms in the sequence which are < 2n". This sequence is the slowest increasing one with this property. See comments on A037988.  Eric Angelini, Jun 15 2007


LINKS

Michael De Vlieger, Table of n, a(n) for n = 0..10000


MATHEMATICA

Block[{a = {1}}, Do[AppendTo[a, i + Last@ TakeWhile[a, # <= i &]], {i, 65}]; a] (* Michael De Vlieger, Sep 04 2017 *)


CROSSREFS

Sequence in context: A100598 A191535 A079537 * A189093 A325442 A134191
Adjacent sequences: A094588 A094589 A094590 * A094592 A094593 A094594


KEYWORD

nonn,easy


AUTHOR

Leroy Quet, Jun 07 2004


EXTENSIONS

More terms from Vladeta Jovovic, Jun 11 2004


STATUS

approved



