OFFSET
1,1
COMMENTS
Floor(a(n+1)/a(n)) = 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 3, 4, 5, 7, 11, 16, 31, 48, 99, 253, 791, 2468, 10239, 61885, 512044, 4334146, 75263018, ... - Zak Seidov, Apr 18 2014
All first differences are multiples of 3. - Zak Seidov, Oct 21 2014
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..47
EXAMPLE
a(1) = 7 = 10[7], i.e., "10" in base 7, thus a(2)=10.
a(2) = 10 = 13[7], thus a(3)=13.
MATHEMATICA
NestList[FromDigits[IntegerDigits[#, 7]] &, 7, 30] (* Zak Seidov, Apr 18 2014 *)
PROG
(PARI) step(n)=fromdigits(digits(n, 7), 10)
n=7; concat(n, vector(99, i, n=step(n))) \\ Charles R Greathouse IV, Oct 21 2014
CROSSREFS
KEYWORD
base,nonn
AUTHOR
EXTENSIONS
Edited by M. F. Hasler, Oct 23 2014
STATUS
approved