OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..1000
EXAMPLE
a(3) = 17 is a term since (17 mod q) for primes q=2,3,5,7,11,13 are 1,2,2,3,6,4, and 1*2*2*3*6*4 = 288 is divisible by 1+2+2+3+6+4 = 18.
MAPLE
P:= [seq(ithprime(i), i=1..1000)]:
filter:= proc(n) local L, k;
L:= [seq(P[n] mod P[k], k=1..n-1)];
convert(L, `*`) mod convert(L, `+`) = 0
end proc:
S:=select(filter, [$2..1000]):
map(t -> P[t], S);
PROG
(PARI) isok(p) = {if (isprime(p) && (p>2), my(s=0, t=1); forprime(q=2, p-1, my(x= p%q); s += x; t *= x; ); !(t % s); ); } \\ Michel Marcus, Jan 11 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Jan 11 2021
STATUS
approved