|
%I #12 Jul 04 2019 10:53:08
%S 5,7,3,9,5,3,3,9,1,3,7,7,3,7,7,5,1,5,7,9,3,7,3,3,9,9,9,5,3,7,1,7,9,5,
%T 7,9,3,1,3,9,5,7,5,5,7,7,1,1,3,1,9,5,9,1,9,5,5,7,7,7,7,7,9,7,9,9,7,7,
%U 3,3,5,9,7,7,1,1,5,9,7,1,5,1,7,5,9,1,7,9,3,5,3,9,1,7,9,9,1,9,9,1,5,3,7,5,9
%N Leading digits of A151752.
%H Alois P. Heinz, <a href="/A151753/b151753.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A000030(A151752(n)). - _Omar E. Pol_, Jul 04 2019
%p a:= proc(n) option remember; local k, l; if n=1 then b(1):= 5; 5 else a(n-1); l:= b(n-1); for k from 1 to 9 by 2 while (parse(cat(k, l)) mod 5^n)<>0 do od; b(n):= parse(cat(k, l)); k fi end:
%p seq(a(n), n=1..120); # _Alois P. Heinz_, Jun 18 2009
%Y Cf. A000030, A151752.
%K nonn,base
%O 1,1
%A _Max Alekseyev_, Jun 17 2009
%E More terms from _Alois P. Heinz_, Jun 18 2009
|
