|
%I #13 Aug 18 2018 21:37:12
%S 7,13,29,61,101,107,199,211,229,241,419,449,467,479,769,823,829,859,
%T 991,1009,1021,1571,1601,1637,1667,1697,1733,1811,1847,1877,1901,1907,
%U 1931,3079,3109,3229,3271,3307,3331,3457,3499,3529,3541,3547
%N Primes in A182623.
%H Nathaniel Johnston, <a href="/A182624/b182624.txt">Table of n, a(n) for n = 1..2000</a>
%p lim:=1800: with(numtheory):A182624:={}:for n from 1 to lim do s:="": for d in divisors(n) do s:= cat(s,convert(convert(d, binary),string)): od: m:=convert(parse(s),decimal,binary):if(isprime(m))then A182624:=A182624 union {m};fi: od:
%p A182624:=sort(convert(A182624,list)):for n from 1 to nops(A182624) do if(A182624[n]>2*lim)then break:fi:printf("%d, ",A182624[n]):od: # _Nathaniel Johnston_, Apr 19 2011
%Y Cf. A000040, A182620, A182621, A182622, A182623.
%K nonn,base
%O 1,1
%A _Omar E. Pol_, Nov 23 2010
%E More terms from _Vincenzo Librandi_, Jan 30 2011
%E a(16) - a(44) from _Nathaniel Johnston_, Apr 19 2011
|
