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 A107627 #8 Oct 01 2023 16:21:26
%S A107627 64,4096,6400,9604,409600,440896,640000,806404,960400,996004,40960000,
%T A107627 44089600,44408896,64000000,80640400,80964004,96040000,99600400,
%U A107627 99960004
%N A107627 Numbers n such that every digit of n and sqrt(n) contains a loop (only digits 0,4,6,8,9 in n and sqrt(n)).
%C A107627 Corresponding square roots in A107626. Cf. A001744 Every digit contains a loop.
%H A107627 Harvey P. Dale, <a href="/A107627/b107627.txt">Table of n, a(n) for n = 1..100</a>
%t A107627 Do[id=Union[IntegerDigits[n^2], IntegerDigits[n]];If[Count[id, 1]+Count[id, 2]+Count[id, 3]+Count[id, 5]+Count[id, 7]==0, Print[n^2]], {n, 10000}]
%t A107627 With[{c={0,4,6,8,9}},#^2&/@Select[FromDigits/@Tuples[c,4],SubsetQ[c,IntegerDigits[ #^2]]&]] (* _Harvey P. Dale_, Oct 01 2023 *)
%Y A107627 Cf. A001744, A107624, A107625, A107626.
%K A107627 nonn,base,dumb
%O A107627 1,1
%A A107627 _Zak Seidov_, May 18 2005