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,1

Links

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

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

Adjacent sequences: A179517 A179518 A179519 * A179521 A179522 A179523

Keyword

nonn,base

Author

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

Status

approved