Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #27 Feb 28 2024 01:37:25
%S 72576,406512,415278,494462,603297,725760,3279015,4065120,4152780,
%T 4651328,4915278,4927203,4944620,4972826,4974032,4985523,4989323,
%U 5002245,5016125,6032970,6214358,6415002,6524235,7257600,9883667
%N Numbers k such that k^2 contains exactly 2 copies of each digit of k.
%C From _Chai Wah Wu_, Feb 27 2024: (Start)
%C If k is a term, then k == 0 (mod 9) or k == 2 (mod 9) (see A370676).
%C First decimal digit of each term is 3 or larger. (End)
%H Chai Wah Wu, <a href="/A114258/b114258.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..645 from Seiichi Manyama)
%e 72576 is in the sequence since its square 5267275776 contains four 7's, two 2's, two 5's and two 6's.
%o (Python)
%o from math import isqrt
%o from itertools import count, islice
%o def A114258_gen(): # generator of terms
%o for l in count(1):
%o a = isqrt(10**((l<<1)-1))
%o if (a9:=a%9):
%o a -= a9
%o for b in range(a,10**l,9):
%o for c in (0,2):
%o k = b+c
%o if sorted(str(k)*2)==sorted(str(k**2)):
%o yield k
%o A114258_list = list(islice(A114258_gen(),20)) # _Chai Wah Wu_, Feb 27 2024
%Y Cf. A114259, A114260, A114261, A199630.
%Y Cf. A061656, A061657, A061658, A061659, A061660, A061661, A061662, A061663, A061664.
%K base,nonn
%O 1,1
%A _Giovanni Resta_, Nov 18 2005