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.

A137367 Subset of A037165 (p(n)*p(n+1)-p(n)-p(n+1)) for twin primes.

This page as a plain text file.
%I A137367 #6 Jun 14 2014 14:19:58
%S A137367 7,23,119,287,839,1679,3479,5039,10199,11447,18767,22199,32039,36479,
%T A137367 38807,51527,57119,72359,78959,96719,120407,175559,185759,212519,
%U A137367 271439,323759,358799,380687,410879,434279,654479,674039,683927,734447,776159
%N A137367 Subset of A037165 (p(n)*p(n+1)-p(n)-p(n+1)) for twin primes.
%H A137367 Harvey P. Dale, <a href="/A137367/b137367.txt">Table of n, a(n) for n = 1..1000</a>
%e A137367 3*5-3-5=7, 5*7-5-7=23, 11*13-11-13=119.
%t A137367 ss={7};Do[If[PrimeQ[p1=6m-1]&&PrimeQ[p2=6m+1],p=-1-12 m+36 m^2;AppendTo[ss,p]],{m,300}];ss
%t A137367 Times@@#-Total[#]&/@Select[Partition[Prime[Range[200]],2,1],#[[2]]-#[[1]] == 2&] (* _Harvey P. Dale_, Jun 14 2014 *)
%Y A137367 Cf. A037165.
%K A137367 nonn
%O A137367 1,1
%A A137367 _Zak Seidov_, Apr 09 2008