OFFSET
0,2
LINKS
Robert Israel, Table of n, a(n) for n = 0..1046
MAPLE
revdigs:= proc(n) local L;
L:= convert(n, base, 10);
add(L[-i]*10^(i-1), i=1..nops(L))
end proc:
seq(revdigs(9^n), n=0..50); # Robert Israel, Jan 21 2020
MATHEMATICA
IntegerReverse[9^Range[0, 20]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 26 2018 *)
PROG
(PARI) for(i=1, 50, n=9^i; s=ceil(log(n)/log(10)); print1(sum(i=0, s, 10^(s-i-1)*(floor(n/10^i)-10*floor(n/10^(i+1)))), ", "))
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Benoit Cloitre, Jun 01 2002
STATUS
approved