A305925 Irregular table read by rows in which row n >= 0 lists all k >= 0 such that the decimal representation of 5^k has n digits '0' (conjectured).
0, 1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 17, 18, 30, 33, 58, 8, 12, 14, 15, 16, 19, 20, 21, 22, 25, 26, 31, 41, 42, 43, 85, 13, 23, 24, 27, 28, 29, 32, 36, 37, 56, 57, 107, 34, 35, 38, 39, 50, 54, 59, 74, 75, 84, 112, 40, 44, 46, 47, 49, 51, 60, 73, 78, 79, 82, 83, 86, 88, 89, 95, 96, 97, 106, 113, 127
Offset: 0
Examples
The table reads: n \ k's 0 : 0, 1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 17, 18, 30, 33, 58 (cf. A008839) 1 : 8, 12, 14, 15, 16, 19, 20, 21, 22, 25, 26, 31, 41, 42, 43, 85 2 : 13, 23, 24, 27, 28, 29, 32, 36, 37, 56, 57, 107 3 : 34, 35, 38, 39, 50, 54, 59, 74, 75, 84, 112 4 : 40, 44, 46, 47, 49, 51, 60, 73, 78, 79, 82, 83, 86, 88, 89, 95, 96, 97, 106, 113, 127 5 : 48, 55, 61, 67, 77, 91, 102, 110, 111, 126, 148, 157 ... The first column is A063585: least k such that 5^k has n digits '0' in base 10. Row lengths are 16, 16, 12, 11, 21, 12, 17, 14, 16, 17, 14, 13, 16, 18, 13, 14, 10, 10, 21, 7,... (A305945). Last terms of the rows are (58, 85, 107, 112, 127, 157, 155, 194, 198, 238, 323, 237, 218, 301, 303, 324, 339, 476, 321, 284, ...), A306115. The inverse permutation is (0, 1, 2, 3, 4, 5, 6, 7, 16, 8, 9, 10, 17, 32, 18, 19, 20, 11, 12, 21, 22, 23, 24, 33, 34, 25, 26, 35, 36, 37, 13, 27,...), not in OEIS.
Crossrefs
Programs
-
Mathematica
mx = 1000; g[n_] := g[n] = DigitCount[5^n, 10, 0]; f[n_] := Select[Range@mx, g@# == n &]; Table[f@n, {n, 0, 4}] // Flatten (* Robert G. Wilson v, Jun 20 2018 *)
-
PARI
apply( A305925_row(n,M=60*(n+1))=select(k->#select(d->!d,digits(5^k))==n,[0..M]), [0..19])
Comments