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.

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

Robert Israel, Table of n, a(n) for n = 1..5000

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

Adjacent sequences: A107579 A107580 A107581 * A107583 A107584 A107585

Keyword

easy,nonn

Author

Zak Seidov, Jun 10 2005

Status

approved