login
A081983
Primes p such that p-1 is divisible by every nonzero digit of p.
6
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
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
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