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 A182048 #17 Feb 21 2023 09:58:53
%S A182048 1,2,3,5,6,7,10,13,19,29,32,36,62,63,70,75,78,85,93,96,102,107,109,
%T A182048 119,123,128,145,158,164,174,177,190,192,197,219,241,247,252,280,284,
%U A182048 299,304,318,335,340,344,354,361,374,377,382,385,387,427,434,439,440
%N A182048 Numbers n such that 16n^2-2n-1 and 16n^2+2n-1 are both primes.
%H A182048 Harvey P. Dale, <a href="/A182048/b182048.txt">Table of n, a(n) for n = 1..3500</a>
%e A182048 a(1)=1 because 16*1^2-2*1-1=13 is prime and 16*1^2+2*1-1=17 is prime.
%t A182048 Select[Range[500], PrimeQ[16 #^2 - 2 # - 1] && PrimeQ[16 #^2 + 2 # - 1] &] (* _T. D. Noe_, Apr 16 2012 *)
%t A182048 Select[Range[500],AllTrue[16#^2-1+{2#,-2#},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Jan 01 2018 *)
%Y A182048 Cf. A171748, A089637.
%K A182048 nonn
%O A182048 1,2
%A A182048 _Gerasimov Sergey_, Apr 08 2012
%E A182048 Corrected and extended by _T. D. Noe_, Apr 16 2012