login
Multiply by 5 and reverse.
8

%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_