OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
MAPLE
q:= 2: r:= 3: s:= 5:
R:= NULL: count:= 0:
while count < 50 do
p:= q; q:= r; r:= s; s:= nextprime(s);
a:= add(t[1]*t[2], t = ifactors(r+s)[2]);
if (p+q+r+s) mod a = 0 then count:= count+1; R:= R, p fi
od:
R;
MATHEMATICA
Select[Partition[Prime[Range[2600]], 4, 1], Divisible[Total[#], Total[Times@@@FactorInteger[ Total[ Take[#, -2]]]]]&][[;; , 1]] (* Harvey P. Dale, Feb 11 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Mar 20 2022
STATUS
approved