[go: up one dir, main page]

login
A115938
Numbers k such that k^k contains a pandigital substring.
6
125, 132, 147, 162, 163, 167, 169, 176, 186, 188, 192, 197, 209, 215, 218, 222, 223, 237, 247, 258, 259, 269, 270, 273, 274, 275, 277, 284, 288, 294, 297, 301, 302, 309, 316, 332, 359, 361, 362, 377, 382, 390, 393, 396, 398, 401, 404, 407, 413, 419, 425
OFFSET
1,1
LINKS
EXAMPLE
125^125 = 12994...59(7369285104)69...8125.
MATHEMATICA
Select[Range[450], Length[Select[Partition[IntegerDigits[#^#], 10, 1], Sort[#]=={0, 1, 2, 3, 4, 5, 6, 7, 8, 9}&]]>0&] (* Harvey P. Dale, Oct 18 2024 *)
PROG
(Python)
def haspan(s): return any(len(set(s[i:i+10]))==10 for i in range(len(s)-9))
print([m for m in range(500) if haspan(str(m**m))]) # Michael S. Branicky, Feb 28 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, Feb 06 2006
STATUS
approved