A336221 Numbers k such that k, k+1, k+2, k+3 and k+4 are terms of A288041.
1547, 16526, 21081, 43251, 50752, 90078, 101630, 114707, 116967, 124913, 189077, 189242, 205058, 205059, 217409, 221474, 222915, 229278, 229279, 230805, 232670, 287891, 290937, 320916, 419830, 435140, 467550, 479689, 479690, 498052, 558747, 617321, 633490, 633491, 719374, 719375, 737073
Offset: 1
Keywords
Crossrefs
Cf. A288041.
Programs
-
Mathematica
s = {}; p = Prime @ Range[9]; Do[If[AllTrue[Total @ Partition[p, 5, 1], PrimeQ], AppendTo[s, n]]; p = Join[Rest[p], {NextPrime @ Last[p]}], {n, 10^6}]; s (* Amiram Eldar, Jul 22 2020 *)
Comments