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 A289135 #27 Feb 07 2024 20:38:44 %S A289135 2,17,41,97,281,457,617,937,1777,2081,2297,3137,6257,12161,18097, %T A289135 21001,23057,24121,24481,25577,26321,42961,47881,50441,62497,70841, %U A289135 76481,90481,97561,110977,120401,132721,139537,152777,159161,172321,182041 %N A289135 Prime numbers p such that 3*p - 2 is the square of a prime number. %C A289135 Terms > 2 are congruent to either 1 or 17 mod 40. - _Davide Rotondo_, Feb 06 2024 %H A289135 Charles R Greathouse IV, <a href="/A289135/b289135.txt">Table of n, a(n) for n = 1..10000</a> %F A289135 a(n) = (A109953(n)^2 + 2) / 3. %t A289135 Select[Prime@ Range@ 20000, PrimeQ@ Sqrt[3 # - 2] &] (* _Michael De Vlieger_, Jun 26 2017 *) %o A289135 (PARI) forprime(n=2,10000,if(isprimepower(3*n-2)==2,print1(n", "))) %o A289135 (PARI) list(lim)=my(v=List([2]),p); forprime(q=7,sqrtint(lim\1*3-2), if(isprime(p=(q^2+2)/3), listput(v,p))); Vec(v) \\ _Charles R Greathouse IV_, Jul 16 2017 %Y A289135 Cf. A109953. %K A289135 nonn %O A289135 1,1 %A A289135 _Dimitris Valianatos_, Jun 25 2017