login
A107582
Numbers n such that (n + prime(n)), (n+1 + prime(n+1)), (n+2 + prime(n+2)) and (n+3 + prime(n+3)) are divisible by 5.
1
6291, 6816, 9951, 11371, 13066, 13151, 14906, 16476, 17531, 17616, 18136, 18161, 18816, 20441, 21036, 22256, 27211, 27756, 28926, 31801, 32601, 33481, 36616, 37496, 38706, 39821, 40206, 41216, 41416, 41641, 41676, 41866, 42506, 43586
OFFSET
1,1
LINKS
MAPLE
P:= 7: V:= [3, 0, 3, 1]: R:= NULL:
for n from 2 to 50000 do
P:= nextprime(P);
V:= [V[2], V[3], V[4], P+n+3 mod 5];
if V = [0, 0, 0, 0] then R:= R, n fi;
od:
R; # Robert Israel, Sep 13 2020
MATHEMATICA
Select[Range[60000], Mod[Prime[ # ]+#, 5]+Mod[Prime[ #+1]+#+1, 5]+Mod[Prime[ #+2]+#+2, 5]+Mod[Prime[ #+3]+#+3, 5]==0&]
SequencePosition[Table[If[Divisible[n+Prime[n], 5], 1, 0], {n, 50000}], {1, 1, 1, 1}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 12 2018 *)
CROSSREFS
Sequence in context: A189655 A071091 A209826 * A213869 A350416 A189344
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Jun 10 2005
STATUS
approved