OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
B. Cloitre, N. J. A. Sloane and M. J. Vandermast, Numerical analogues of Aronson's sequence, J. Integer Seqs., Vol. 6 (2003), #03.2.2.
B. Cloitre, N. J. A. Sloane and M. J. Vandermast, Numerical analogues of Aronson's sequence (math.NT/0305308)
MAPLE
A:= Vector(100):
A[1..5]:= <1, 2, 5, 6, 8>:
going:= true;
for n from 3 while going do
for k from 0 to A[n+1]-A[n] do
if A[n]+k > 100 then going:= false; break fi;
A[A[n]+k]:= 2^n+k
od od:
convert(A, list); # Robert Israel, Mar 20 2019
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane and Matthew Vandermast, Feb 04 2003
STATUS
approved