A204139 Primes p such that 9p^2 is a penholodigital square (A036744).
5227, 7673, 8147, 8269, 8353, 8647, 8803, 9043, 9091
Offset: 1
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
a(0) is the smallest number whose square is a zeroless pandigital number. A071519 lists numbers whose squares are zeroless pandigital numbers. Thus, a(0) = A071519(1) = 11826 (11826^2 = 139854276).
Table[Select[Range[100000], Union[IntegerDigits[#^2]] == Delete[Range[0, 9], n + 1] &][[1]], {n, 0, 9}]
def a(n):
k, target = 1, set(str(i) for i in range(10) if i != n)
while set(str(k*k)) != target: k += 1
return k
print([a(n) for n in range(10)]) # Michael S. Branicky, Aug 19 2021
Comments