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 A177679 #11 Sep 08 2022 08:45:53 %S A177679 1,22,27,71,85,111,113,195,209,351,1106,1387,1471,1785,1848,1911,2128, %T A177679 2170,2346,2366,2409,2470,2492,2626,2689,2731,2918,3108,3410,3849, %U A177679 4159,4466,4565,5214,5382,5615,6117,6161,6559,7035,7063,7349,7469,7798,7923 %N A177679 Numbers k such that 30*k and 60*k are both the average of twin prime pairs. %H A177679 Amiram Eldar, <a href="/A177679/b177679.txt">Table of n, a(n) for n = 1..10000</a> %F A177679 a(n) = A066388(n+1)/30. %e A177679 a(1)=1 because 30*1-1=29, 30*1+1=31, 60*1-1=59 and 60*1+1=61 are all twin primes. %t A177679 Select[Range[8000], AllTrue[{30#-1, 30#+1, 60#-1, 60#+1}, PrimeQ] &] (* _Amiram Eldar_, Dec 20 2019 *) %o A177679 (Magma) [k:k in [1..8000]|IsPrime(30*k-1) and IsPrime(30*k+1) and IsPrime(60*k-1) and IsPrime(60*k+1)]; // _Marius A. Burtea_, Dec 20 2019 %Y A177679 Cf. A014574. %K A177679 nonn %O A177679 1,2 %A A177679 _Juri-Stepan Gerasimov_, May 10 2010 %E A177679 Corrected (185 replaced by 195, 2718 replaced by 2918, 2731 inserted etc.) by _R. J. Mathar_, May 15 2010