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 A085958 #10 Dec 05 2013 19:56:19 %S A085958 17,137,809,857,3209,6569,7577,9209,11897,16217,17657,19289,21929, %T A085958 23417,30809,35129,37529,41849,46889,53609,56009,66377,70457,74729, %U A085958 76697,78809,80537,88937,91577,95177,96857,103289,129497,141257,165449,166169 %N A085958 Primes p such that 8p +1 and (p-1)/8 are primes. %e A085958 137 is a term as (137-1)/8 = 17 and 137*8 +1 = 1097 both are primes. %t A085958 Prime[ Select[ Range[15208], PrimeQ[ 8Prime[ # ] + 1] && PrimeQ[(Prime[ # ] - 1)/8] & ]] %t A085958 Select[Prime[Range[16000]],PrimeQ[8#+1]&&PrimeQ[(#-1)/8]&] (* _Harvey P. Dale_, Jan 23 2013 *) %Y A085958 Cf. A085956, A085957. %K A085958 nonn %O A085958 1,1 %A A085958 _Amarnath Murthy_, Jul 16 2003 %E A085958 Edited and extended by _Zak Seidov_ and _Robert G. Wilson v_, Jul 18 2003