1,1
Generated with DrScheme
No further terms up to 20 billion. [From Harvey P. Dale, Dec 15 2011]
J. Wellons, Tables of Shared Digits
2878^2 = 8282884
oksQ[n_]:=Module[{idn2=Union[IntegerDigits[n^2]]}, And@@Table[MemberQ[{2, 4, 7, 8}, idn2[[i]]], {i, Length[idn2]}]]; Select[FromDigits/@Flatten[ Table[ Tuples[ {2, 4, 7, 8}, n], {n, 9}], 1], oksQ] (* From Harvey P. Dale, Dec 15 2011 *)
Sequence in context: A152243 A074160 A137074 * A053962 A111771 A052001
Adjacent sequences: A137103 A137104 A137105 * A137107 A137108 A137109
base,nonn
Jonathan Wellons (wellons(AT)gmail.com), Jan 22 2008