%I #31 Oct 23 2014 21:07:08
%S 7,10,13,16,22,31,43,61,115,223,436,1162,3250,12322,50632,300421,
%T 2360602,26031136,434155345,13521155011,656031631000,65253034566544,
%U 16513243012141246,13066154302600036600,32251566130104220405204
%N a(n+1) = a(n) written in base 7 (read in base 10); a(1) = 7.
%C 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
%C All first differences are multiples of 3. - _Zak Seidov_, Oct 21 2014
%H Vincenzo Librandi, <a href="/A023390/b023390.txt">Table of n, a(n) for n = 1..47</a>
%e a(1) = 7 = 10[7], i.e., "10" in base 7, thus a(2)=10.
%e a(2) = 10 = 13[7], thus a(3)=13.
%t NestList[FromDigits[IntegerDigits[#, 7]] &, 7, 30] (* _Zak Seidov_, Apr 18 2014 *)
%o (PARI) step(n)=fromdigits(digits(n,7),10)
%o n=7;concat(n,vector(99,i,n=step(n))) \\ _Charles R Greathouse IV_, Oct 21 2014
%Y Cf. A023383.
%K base,nonn
%O 1,1
%A _David W. Wilson_
%E Edited by _M. F. Hasler_, Oct 23 2014