A138907 a(n) = A138906(n) - A138905(n).
2, 14, 2, 74, 32, 2, 2, -94, -52, 482, -262, 578, 2, 590, 452, 386, -814, 326, 1598, 1202, 758, 530, -1516, 290, 602, -154, -1618, 2354, 2612, 1442, 2420, -3646, 794, 1430, 1472, -862, -220, 1142, 938, 2642, -2458, 3782, 4130, 3698, 1622, 5798, 3386, -3742, 2, 6002, -8566, -1246, 2864, 3566, 1322, 2690, 3764
Offset: 1
Keywords
Programs
-
Mathematica
a138906[n_]:=Module[{p=1,cnt=0},Until[cnt==n,If[Mod[Prime[p],6n]==1,cnt++];p++];Prime[p-1]];a138905[n_]:=Module[{p=1,cnt=0},Until[cnt==n,If[Mod[Prime[p],6n]==6n-1,cnt++];p++];Prime[p-1]];Table[a138906[n]-a138905[n],{n,57}] (* James C. McMahon, Jun 23 2025 *)
Extensions
a(41) corrected by James C. McMahon, Jun 23 2025