|
%I #18 Jan 01 2021 08:06:37
%S 1,5,52,62,13,56,82,14,7,53,562,182,19,59,592,692,643,5123,51652,
%T 62852,62413,560213,5601082,1450082,140527,536207,5301862,1390562,
%U 182596,89219,590644,223592,697111,5555843,51297772,68884652,62324443,512226113,5650311652
%N Multiply by 5 and reverse.
%H Alois P. Heinz, <a href="/A045539/b045539.txt">Table of n, a(n) for n = 0..1000</a>
%H Vaclav Kotesovec, <a href="/A045539/a045539_1.jpg">Plot of a(n)^(1/n) for n = 0..100000</a>
%p a:= proc(n) option remember; `if`(n=0, 1,
%p (s-> parse(cat(s[-i]$i=1..length(s))))(""||(5*a(n-1))))
%p end:
%p seq(a(n), n=0..40); # _Alois P. Heinz_, Apr 09 2015
%t a[n_] := a[n] = If[n==0, 1, IntegerReverse[5a[n-1]]];
%t a /@ Range[0, 40] (* _Jean-François Alcover_, Jan 01 2021 *)
%Y Cf. A036447 (*2), A163632 (*3), A132064 (*4), A132078 (*6), A132114 (*7), A132113 (*8), A133361 (*9).
%K base,nonn
%O 0,2
%A _Erich Friedman_
|
