cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A138907 a(n) = A138906(n) - A138905(n).

This page as a plain text file.
%I A138907 #8 Jun 23 2025 22:20:17
%S A138907 2,14,2,74,32,2,2,-94,-52,482,-262,578,2,590,452,386,-814,326,1598,
%T A138907 1202,758,530,-1516,290,602,-154,-1618,2354,2612,1442,2420,-3646,794,
%U A138907 1430,1472,-862,-220,1142,938,2642,-2458,3782,4130,3698,1622,5798,3386,-3742,2,6002,-8566,-1246,2864,3566,1322,2690,3764
%N A138907 a(n) = A138906(n) - A138905(n).
%t A138907 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 *)
%Y A138907 Cf. A138905, A138906.
%K A138907 sign
%O A138907 1,1
%A A138907 _Zak Seidov_, Apr 03 2008
%E A138907 a(41) corrected by _James C. McMahon_, Jun 23 2025