login
A179520
Primes p containing no zero digits and such that p+1 is divisible by every digit of p.
2
11, 23, 113, 131, 167, 211, 233, 263, 269, 311, 359, 383, 431, 443, 727, 863, 1163, 1217, 1223, 1259, 1361, 1427, 1439, 1613, 1619, 1637, 1721, 1777, 1823, 1847, 2111, 2213, 2221, 2243, 2267, 2333, 2339, 2393, 2411, 2423, 2621, 2633, 2663, 2687, 2699, 2969, 3221, 3323, 3329, 3491
OFFSET
1,1
LINKS
MATHEMATICA
Select[Prime[Range[25000]], DigitCount[#, 10, 0]==0&&AllTrue[(#+1)/ IntegerDigits[ #], IntegerQ]&] (* Requires Mathematica version 10 or later *)
CROSSREFS
Cf. A081981.
Sequence in context: A041238 A089779 A146084 * A288406 A014874 A027899
KEYWORD
nonn,base
AUTHOR
Harvey P. Dale and N. J. A. Sloane, Jan 08 2011
STATUS
approved