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

Links

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

Example

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

Mathematica

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

Crossrefs

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

Sequence in context: A050265 A176871 A092402 * A081984 A145482 A167497

Adjacent sequences: A081980 A081981 A081982 * A081984 A081985 A081986

Keyword

base,nonn

Author

Amarnath Murthy, Apr 04 2003

Extensions

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

Status

approved