A305929 Irregular table: row n >= 0 lists all k >= 0 such that the decimal representation of 9^k has n digits '0' (conjectured).
0, 1, 2, 3, 4, 6, 7, 12, 13, 14, 17, 34, 5, 8, 9, 10, 25, 26, 36, 11, 15, 16, 18, 19, 20, 21, 22, 23, 24, 28, 29, 30, 31, 32, 48, 54, 68, 41, 45, 56, 33, 35, 37, 44, 49, 53, 58, 64, 65, 38, 39, 40, 43, 46, 51, 52, 59, 61, 67, 82, 83, 106, 42, 47, 62, 66, 69, 72, 73, 76, 84, 89, 144, 27, 50
Offset: 0
Examples
The table reads: n \ k's 0 : 0, 1, 2, 3, 4, 6, 7, 12, 13, 14, 17, 34 (= A030705) 1 : 5, 8, 9, 10, 25, 26, 36 2 : 11, 15, 16, 18, 19, 20, 21, 22, 23, 24, 28, 29, 30, 31, 32, 48, 54, 68 3 : 41, 45, 56 4 : 33, 35, 37, 44, 49, 53, 58, 64, 65 5 : 38, 39, 40, 43, 46, 51, 52, 59, 61, 67, 82, 83, 106 ... Column 0 is A063626: least k such that 9^k has n digits '0' in base 10. Row lengths are 12, 7, 18, 3, 9, 13, 11, 11, 6, 9, 17, 15, 12, 9, 11, 6, 9, 9, ... (A305939). Last element of the rows (largest exponent such that 9^k has exactly n digits 0) are (34, 36, 68, 56, 65, 106, 144, 134, 119, 138, 154, ...), A306119. Inverse permutation is (0, 1, 2, 3, 4, 12, 5, 6, 13, 14, 15, 19, 7, 8, 9, 20, 21, 10, 22, 23, 24, 25, 26, 27, 28, 16, 17, 73, 29, 30, 31, 32, ...), not in OEIS.
Links
- M. F. Hasler, Zeroless powers.. OEIS Wiki, March 2014.
Crossrefs
Programs
-
Mathematica
mx = 1000; g[n_] := g[n] = DigitCount[9^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( A305929_row(n,M=50*(n+1))=select(k->#select(d->!d,digits(9^k))==n,[0..M]), [0..10]) print(apply(t->#t,%)"\n"apply(vecmax,%)"\n"apply(t->t-1,Vec(vecsort(concat(%),,1)[1..99]))) \\ to show row lengths, last terms and the inverse permutation
Formula
Row n consists of the integers in (row n of A305933 divided by 2).
Comments