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.
%I A137093 #20 Apr 12 2024 18:03:12
%S A137093 2,5,25,65,665,6665,66665,666665,6666665,25625465,65226242,66666665,
%T A137093 666666665,6666666665,66666666665,666666666665,6666666666665,
%U A137093 66666666666665,666666666666665,6666666666666665,66666666666666665,666666666666666665,6666666666666666665
%N A137093 Numbers k such that k and k^2 use only the digits 2, 4, 5 and 6.
%C A137093 Generated with DrScheme.
%C A137093 Contains 6*(10^n - 1)/9 - 1 for n >= 1. There are no others than those of this form with up to 35 digits. - _Michael S. Branicky_, May 25 2021
%H A137093 Jonathan Wellons, <a href="https://web.archive.org/web/20090206165028/http://jonathanwellons.com/shared-digits/">Tables of Shared Digits</a> [archived].
%e A137093 25625465^2 = 656664456466225.
%t A137093 fQ[n_] := Block[{d = DigitCount@ n}, Total@ Delete[d, {{2}, {4}, {5}, {6}}] == 0]; Select[Range@ 100000, fQ@ # && fQ[#^2] &] (* _Michael De Vlieger_, Apr 29 2015 *)
%o A137093 (Python)
%o A137093 from itertools import product
%o A137093 A137093_list = [int(''.join(a)) for l in range(1,10) for a in product('2456',repeat = l) if set(str(int(''.join(a))**2)) <= {'2','4','5','6'}] # _Chai Wah Wu_, Apr 29 2015
%o A137093 (Python) # uses auptod in A137110
%o A137093 print(auptod(16, only="2456")) # _Michael S. Branicky_, May 25 2021
%Y A137093 Cf. A137110.
%K A137093 base,nonn
%O A137093 1,1
%A A137093 Jonathan Wellons (wellons(AT)gmail.com), Jan 22 2008
%E A137093 a(20)-a(23) from _Michael S. Branicky_, May 25 2021