A081983 Primes p such that p-1 is divisible by every nonzero digit of p.

11, 13, 19, 31, 41, 61, 71, 101, 103, 109, 127, 151, 163, 199, 211, 223, 241, 251, 281, 313, 331, 337, 379, 401, 421, 433, 521, 541, 601, 613, 631, 661, 673, 701, 881, 919, 991, 1009, 1021, 1033, 1051, 1063, 1123, 1151, 1201, 1213, 1231, 1303, 1321, 1481

Offset: 1

Author

Amarnath Murthy, Apr 04 2003

Keywords

• base
• nonn

Examples

			127 is a member as 126 is divisible by 1, 2 and 7.
		

Links

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

Crossrefs

Cf. A081981, A081982, A081984, A081986, A081987.

Programs

Mathematica

Select[Prime[Range[250]],And@@Divisible[#-1,Select[IntegerDigits[ #], #!=0&]]&] (* Harvey P. Dale, Apr 14 2018 *)

Extensions

More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 06 2003