OFFSET
0,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..1000
MAPLE
a:= n-> (s-> parse(cat(s[-i]$i=1..length(s))))(""||(5^n)):
seq(a(n), n=0..50); # Alois P. Heinz, Apr 09 2015
MATHEMATICA
IntegerReverse/@(5^Range[0, 30]) (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 15 2017 *)
PROG
(PARI) for(i=1, 50, n=5^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