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.

A096345 Primes of the form p*q - p - q, where p and q are two successive primes.

This page as a plain text file.
%I A096345 #19 Aug 10 2025 16:52:20
%S A096345 7,23,59,191,839,1439,1931,5039,8447,11447,23399,26891,36479,41579,
%T A096345 46619,57119,59999,77279,110879,163199,232307,323759,370871,414731,
%U A096345 470579,521267,566999,606791,664199,678971,776159,824459,835379,879839,919631,1183739,1190279
%N A096345 Primes of the form p*q - p - q, where p and q are two successive primes.
%C A096345 These primes are not the sum of two squares.
%C A096345 The number of terms less than 10^n: 1, 3, 5, 9, 18, 35, 83, 190, 425, 1105, 2962, 7695, 20187, 54280, 147464, 402660, 1116912, ..., . - _Robert G. Wilson v_, Apr 09 2008
%H A096345 Robert G. Wilson v, <a href="/A096345/b096345.txt">Table of n, a(n) for n=1..7700</a>
%e A096345 a(3)=59 because 7*11 - 7 - 11=59.
%t A096345 lst = {}; p = q = 2; Do[p = q; q = NextPrime@q; r = p*q - p - q; If[ PrimeQ@r, AppendTo[lst, r]], {n, 300}]; lst (* _Robert G. Wilson v_, Apr 09 2008 *)
%t A096345 Select[Times@@#-#[[1]]-#[[2]]&/@Partition[Prime[Range[300]],2,1],PrimeQ] (* _Harvey P. Dale_, Feb 17 2025 *)
%Y A096345 Primes in A037165.
%K A096345 nonn
%O A096345 1,1
%A A096345 _Giovanni Teofilatto_, Jun 29 2004
%E A096345 More terms from _Robert G. Wilson v_, Jul 01 2004