OFFSET
0,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..70
MATHEMATICA
NestList[FromDigits[IntegerDigits[#], 13]&, 10, 30] (* Vincenzo Librandi, Apr 06 2012 *)
PROG
(PARI) {cuo=10; print1(cuo, ", ");
for(i=1, 34, cvst=cuo; cuo=0; twh=-1;
while(cvst!=0, twh++;
ptch=cvst%10; cuo=cuo+ptch*13^twh; cvst=(cvst-ptch)/10);
print1(cuo, ", "))} \\ Douglas Latimer, May 15 2012
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Henry Bottomley, Jun 01 2000
EXTENSIONS
More terms from Douglas Latimer, May 15 2012
STATUS
approved