%I #7 Aug 18 2020 04:22:59
%S 0,9,36,900,3600,3969,6889,8836,38809,69696,80089,90000,93636,339889,
%T 360000,363609,380689,396900,660969,688900,693889,698896,883600,
%U 896809,988036,3663396,3869089,3880900,3988009,6066369,6086089,6969600,8008900,8088336,8803089
%N Perfect squares using only the curved digits 0, 3, 6, 8 and 9.
%H Amiram Eldar, <a href="/A079655/b079655.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[0, 3000], AllTrue[IntegerDigits[#^2], MemberQ[{0, 3, 6, 8 , 9}, #1] &] &]^2 (* _Amiram Eldar_, Aug 18 2020 *)
%Y Intersection of A000290 and A072960.
%K base,nonn
%O 1,2
%A _Shyam Sunder Gupta_, Jan 23 2003
%E More terms from _Amiram Eldar_, Aug 18 2020
|