login
A182624
Primes in A182623.
5
7, 13, 29, 61, 101, 107, 199, 211, 229, 241, 419, 449, 467, 479, 769, 823, 829, 859, 991, 1009, 1021, 1571, 1601, 1637, 1667, 1697, 1733, 1811, 1847, 1877, 1901, 1907, 1931, 3079, 3109, 3229, 3271, 3307, 3331, 3457, 3499, 3529, 3541, 3547
OFFSET
1,1
LINKS
MAPLE
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:
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
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Omar E. Pol, Nov 23 2010
EXTENSIONS
More terms from Vincenzo Librandi, Jan 30 2011
a(16) - a(44) from Nathaniel Johnston, Apr 19 2011
STATUS
approved