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.

A094068 Lessers of twin prime pairs whose greater has a prime prime index.

This page as a plain text file.
%I A094068 #16 Nov 30 2022 13:30:46
%S A094068 3,29,107,239,281,857,1061,1151,1619,1667,1721,2267,2339,2801,2999,
%T A094068 3167,3257,3467,3557,4271,4337,4547,4799,4931,5279,5501,5849,5867,
%U A094068 6359,6659,6689,7349,8009,8219,8231,8387,9857,10007,10859,13001,13691,15269,15971
%N A094068 Lessers of twin prime pairs whose greater has a prime prime index.
%H A094068 Amiram Eldar, <a href="/A094068/b094068.txt">Table of n, a(n) for n = 1..10000</a>
%e A094068 107 is the lesser of twin prime pair (107,109) the prime index of 109 (the greater) is 29.
%t A094068 seq = {}; p = prv = 2; k = 1; Do[p = NextPrime[p]; k++; If[p == prv + 2 && PrimeQ[k], AppendTo[seq, prv]]; prv = p, {10^3}]; seq
%t A094068 Select[Partition[Prime[Range[2000]],2,1],#[[2]]-#[[1]]==2&&PrimeQ[PrimePi[ #[[2]]]]&] [[All,1]] (* _Harvey P. Dale_, Nov 30 2022 *)
%o A094068 (PARI) lista(n) = {forprime(x=2,n, y=prime(x)- 2; if(isprime(y),print1(y",")))}
%Y A094068 Cf. A001097, A001359, A006512, A096479.
%K A094068 nonn
%O A094068 1,1
%A A094068 _Cino Hilliard_, May 31 2004
%E A094068 Offset corrected by _Amiram Eldar_, Dec 27 2019