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 A139462 #6 May 08 2025 09:55:53 %S A139462 1,2,1,1,3,1,2,2,3,1,6,5,5,7,1,5,8,2,10,29,3,7,10,8,33,28,11,3,19,5, %T A139462 12,12,11,19,52,29,17,23,29,36,3,1,7,59,16,5,4,113,1,8,16,25,4,5,52,1, %U A139462 82,71,14,34,20,3,1,35,20,107,14,38,41,34,14,6,20,36,36,20,62,19,8,92,140 %N A139462 a(n) = m such that product n successive odd primes - 2*prime(n+m+1) is prime = such m that primorial(n+1)/2 - 2*prime(n+m+1) is prime. %C A139462 For indices where 1 occurs, see A139463. %t A139462 k = 1; a = {}; Do[k = k*Prime[n]; m = 1; While[ ! PrimeQ[k - 2*Prime[n + m]], m++ ]; Print[m]; AppendTo[a, m], {n, 2, 200}]; a (*Artur Jasinski*) %Y A139462 Cf. A067026, A067027, A139439, A139440, A139441, A139442, A139443, A139444, A139445, A139446, A139447, A139448, A139449, A139450, A139451, A139452, A139453, A139454, A139455, A139456, A139457, A103514, A139460, A139461, A139462, A139463. %K A139462 nonn %O A139462 1,2 %A A139462 _Artur Jasinski_, Apr 22 2008