OFFSET
1,2
COMMENTS
a(12) > 2*10^5, if it exists.
EXAMPLE
a(2) = 3 because A109227(3) = 1101 and 1101/3 = 367.
MATHEMATICA
Select[Range[160], Divisible[FromDigits[Boole @ PrimeQ[Range[Prime[#]]]], #] &] (* Amiram Eldar, Aug 18 2020 *)
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Jason Earls, Jun 23 2005
EXTENSIONS
a(6)-a(11) from Amiram Eldar, Aug 18 2020
STATUS
approved