A285453 Least number x such that x^n has n digits equal to k. Case k = 6.

6, 26, 36, 174, 561, 426, 616, 711, 341, 2389, 2226, 4968, 8136, 2605, 10838, 11396, 12299, 11877, 6398, 13862, 8906, 12551, 43196, 33104, 51241, 43955, 52492, 19718, 47985, 45903, 78017, 78862, 34572, 65196, 79768, 109223, 39291, 139583, 151046, 174124, 195761

Offset

1,1

Links

Martin Gossow, Table of n, a(n) for n = 1..100

Example

a(4) = 174 because 174^4 = 916636176 has 4 digits '6' and is the least number to have this property.

Maple

P:=proc(q, h) local a, j, k, n, t; for n from 1 to q do for k from 1 to q do
a:=convert(k^n, base, 10); t:=0; for j from 1 to nops(a) do if a[j]=h then t:=t+1; fi; od;
if t=n then print(k); break; fi; od; od; end: P(10^9, 6);

Mathematica

With[{k = 6}, Table[x = 1; While[DigitCount[x^n, 10, k] != n, x++]; x, {n, 41}]] (* Michael De Vlieger, May 01 2017 *)

Crossrefs

Sequence in context: A075454 A075456 A166728 * A327713 A136892 A254527

Adjacent sequences: A285450 A285451 A285452 * A285454 A285455 A285456

Keyword

nonn,base,easy

Author

Paolo P. Lava, Apr 19 2017

Status

approved