|
|
A275533
|
|
Least positive number m such that m^k for k = 1..n have no digit 1.
|
|
0
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
It appears that there are no more terms in this sequence.
|
|
LINKS
|
|
|
EXAMPLE
|
2975^k, k = 1..7 = 2975, 8850625, 26330609375, 78333562890625, 233042349599609375, 693300990058837890625, 2062570445425042724609375 (all are oneless), while 2975^8 = 6136147075139502105712890625 has 5 ones.
|
|
MATHEMATICA
|
Table[{n, m=1; Monitor[Parallelize[While[True, If[Length[DeleteCases[Table[If[MemberQ[IntegerDigits[m^k], 1]==False, k, a], {k, 1, n}], a]]==n, Break[]]; m++]; m], m]}, {n, 1, 7}] (* J.W.L. (Jan) Eerland, Nov 26 2022 *)
|
|
CROSSREFS
|
Cf. A052383 (numbers without 1 as a digit).
|
|
KEYWORD
|
nonn,base,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|