%I#18 2019年2月7日02:18:22
%S 9411409109104041044941104110000110114101409101190,
%电话91019194011194014194040911049914940110019401100494019941,
%电话:9401999094109190941091919444091019000449190011049190011010190011090011900119091900119101
%N数字N,使N和素数(N)都由平方数字(0,1,4,9)组成。
%C对应的素数是:491、9199、94441、109441、149919、494441、1441049、1441199、1499149,它们构成了A061246的子序列(带平方数字的素数)。
%H Chai Wah Wu,n的表,n的a(n)=1..216</a>
%t Do[id=并集[IntegerDigits[Prime[n]],IntegerPigits[n]];如果[Count[id,2]+Count[id,3]+Count[Count[id,5]+Count[id,6]+Counten[id,7]+Count[id,8]==0,Print[n]],{n,200000}]
%Y参考A061246。
%K nonn,基础
%O 1,1号机组
%2005年5月17日
%E a(10)-a(30),来自恰瓦乌,2019年1月30日