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.

A137516 Let 2n = p + q where p and q are primes. Take the p and q that produce the smallest product, then set a(n) = p*q - 2n.

This page as a plain text file.
%I A137516 #18 Feb 13 2015 02:17:54
%S A137516 0,3,7,11,23,19,23,47,31,35,71,43,87,131,55,59,119,179,71,143,79,83,
%T A137516 167,91,183,275,103,207,311,115,119,239,359,131,263,139,143,287,431,
%U A137516 155,311,163,327,491,175,351,527,1403,191,383,199,203,407,211,215,431,223,447,671
%N A137516 Let 2n = p + q where p and q are primes. Take the p and q that produce the smallest product, then set a(n) = p*q - 2n.
%C A137516 Trying to translate the Goldbach conjecture into multiplication.
%H A137516 Isaac E. Lambert and Charles R Greathouse IV, <a href="/A137516/b137516.txt">Table of n, a(n) for n = 2..10000</a> (first 100 terms from Lambert)
%e A137516 For example, the 13th term of the sequence is 43 since 26 = 3 + 23 (and the product 69 is minimal) and 3*23 - 26 = 43.
%t A137516 f[n_] := Block[{p = 2}, While[ !PrimeQ[ 2n - p], p = NextPrime@ p]; 2n(p - 1) - p^2]; Array[f, 59, 2] (* _Robert G. Wilson v_, Mar 25 2012 *)
%o A137516 (PARI) a(n)=n+=n;forprime(p=2,default(primelimit),if(isprime(n-p),return(p*n-p^2-n))) \\ _Charles R Greathouse IV_, Mar 26 2012
%K A137516 nonn,easy
%O A137516 2,2
%A A137516 _Isaac Lambert_, Apr 23 2008
%E A137516 Edited by _N. J. A. Sloane_, May 23 2008