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.
%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