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.

A099775 Primes of the form pq - 6, where p and q are consecutive primes.

This page as a plain text file.
%I A099775 #16 Dec 19 2019 05:48:16
%S A099775 29,71,137,317,431,661,1511,3121,3593,4751,6551,8627,9791,11657,16631,
%T A099775 19037,36857,41983,51977,55681,57593,72893,82913,95471,116933,123191,
%U A099775 159191,194471,198901,205187,210671,233267,256021,272477,324893,364801
%N A099775 Primes of the form pq - 6, where p and q are consecutive primes.
%C A099775 Primes of the form prime(k)*prime(k+1) - 6 for some k >= 1. - _Jon E. Schoenfield_, Jan 17 2015
%H A099775 Amiram Eldar, <a href="/A099775/b099775.txt">Table of n, a(n) for n = 1..10000</a>
%e A099775 11*13 - 6 = 137 is prime.
%t A099775 f[n_]:=Prime[n]*Prime[n+1]-6; lst={}; Do[If[PrimeQ[f[n]],AppendTo[lst,f[n]]],{n,6!}]; lst (* _Vladimir Joseph Stephan Orlovsky_, Feb 10 2010 *)
%o A099775 (PARI) p=2;forprime(q=3,610,if(isprime(u=p*q-6),print1(u,","));p=q)
%o A099775 (PARI) forprime(p=2,1000, q=nextprime(p+1); r=p*q-6; if(isprime(r),print1(r,","))) \\ _Rick L. Shepherd_, Nov 13 2004
%Y A099775 Cf. A092761.
%K A099775 nonn
%O A099775 1,1
%A A099775 _Giovanni Teofilatto_, Nov 12 2004
%E A099775 Edited and extended by _Klaus Brockhaus_ and _Rick L. Shepherd_, Nov 13 2004