OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
167 is a term as 168 is divisible by 1*6*7 = 42.
MAPLE
filter:= proc(n)
isprime(n) and
n+1 mod convert(subs(0=NULL, convert(n, base, 10)), `*`) = 0
end proc:
select(filter, [seq(i, i=3..10000, 2)]); # Robert Israel, Nov 09 2017
PROG
(PARI) isok(p) = isprime(p) && (d=digits(p)) && !((p+1) % prod(k=1, #d, if (d[k], d[k], 1))); \\ Michel Marcus, Nov 09 2017
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