cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A229975 The base 8 expansion of the number of trailing zeros of the base 8 expansion of (8^n)!.

This page as a plain text file.
%I A229975 #13 Oct 21 2024 15:38:49
%S A229975 2,25,252,2525,25252,252525,2525252,25252525,252525252,2525252525,
%T A229975 25252525252,252525252525,2525252525252,25252525252525,
%U A229975 252525252525252,2525252525252525,25252525252525252,252525252525252525,2525252525252525252,25252525252525252525
%N A229975 The base 8 expansion of the number of trailing zeros of the base 8 expansion of (8^n)!.
%H A229975 Antonio M. Oller-Marcén and José María Grau, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL14/Oller/oller3.html">On the base-b expansion of the number of trailing zeros of (b^k)!</a>, Journal of Integer Sequences, Vol 14. (11.6.7) 2011.
%t A229975 Z[p_, n_] := (n - H[p, n])/(p - 1); H[p_, n_] := {a = IntegerDigits[n, p]; bb = Length[a];    Sum[a[[i]], {i, bb}]}[[1]]; Z[p_, r_, n_] :=  Floor[Z[p, n]/r]; ZZ[b_, n_] := {aa = FactorInteger[b]; Min[Table[Z[aa[[i, 1]], aa[[i, 2]], n], {i, Length[aa]}]]}[[1]]; Table[ FromDigits@IntegerDigits[ZZ[8, 8^n], 8], {n, 15}]
%t A229975 Table[FromDigits[PadRight[{},n,{2,5}]],{n,20}] (* _Harvey P. Dale_, Oct 21 2024 *)
%Y A229975 Cf. A174970, A173228.
%K A229975 nonn,base
%O A229975 1,1
%A A229975 _José María Grau Ribas_, Oct 05 2013