A179520 Primes p containing no zero digits and such that p+1 is divisible by every digit of p.

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

Author

Harvey P. Dale and N. J. A. Sloane, Jan 08 2011

Keywords

• nonn
• base

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A081981.

Programs

Mathematica

Select[Prime[Range[25000]],DigitCount[#,10,0]==0&&AllTrue[(#+1)/ IntegerDigits[ #],IntegerQ]&] (* Requires Mathematica version 10 or later *)