%I #9 Apr 12 2024 09:51:27
%S 0,3,6,30,60,63,83,300,306,600,603,630,830,833,836,3000,3006,3060,
%T 6000,6003,6030,6300,8300,8303,8306,8330,8360,9386,9803,30000,30006,
%U 30060,30600,30633,60000,60003,60030,60083,60300,63000,83000,83006,83030,83060,83300,83303,83306,83600,89906,93860,96886,98030,98336,99803,300000,300006,300060,300600
%N Numbers k such that k and k^2 use only the digits 0, 3, 6, 8 and 9.
%C Generated with DrScheme.
%H Jonathan Wellons, <a href="/A136945/b136945.txt">Table of n, a(n) for n = 1..1238</a>
%H J. Wellons, <a href="https://web.archive.org/web/20090206165028/http://jonathanwellons.com/shared-digits/">Tables of Shared Digits</a> [archived]
%e 8308960830386^2 = 69038830080888806660908996.
%t With[{c={0,3,6,8,9}},Select[FromDigits/@Tuples[c,6],SubsetQ[c, IntegerDigits[ #^2]]&]] (* _Harvey P. Dale_, Apr 19 2015 *)
%K base,nonn
%O 1,2
%A Jonathan Wellons (wellons(AT)gmail.com), Jan 22 2008