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 A108570 #21 Sep 08 2022 08:45:19 %S A108570 9,25,121,289,841,1681,3481,5041,10201,11449,18769,22201,32041,36481, %T A108570 38809,51529,57121,72361,78961,96721,120409,175561,185761,212521, %U A108570 271441,323761,358801,380689,410881,434281,654481,674041,683929,734449,776161 %N A108570 Squares of lesser of twin primes. %C A108570 Squares of the form prime(n)*prime(n+1) - 2*prime(n). %H A108570 Vincenzo Librandi, <a href="/A108570/b108570.txt">Table of n, a(n) for n = 1..1000</a> %p A108570 ZL:=[]:for p from 1 to 950 do if (isprime(p) and isprime(p+2)) then ZL:=[op(ZL),(p^2)]; fi; od; print(ZL); # _Zerinvary Lajos_, Mar 08 2007 %t A108570 Select[First[#]Last[#]-2First[#]&/@Partition[Prime[Range[500]],2,1],IntegerQ[ Sqrt[#]]&] (* _Harvey P. Dale_, May 24 2011 *) %o A108570 (PARI) p=2;forprime(q=3,, if(q-p==2, print1(p^2", ")); p=q) \\ _Charles R Greathouse IV_, Dec 16 2019 %o A108570 (Magma) [p^2 : p in PrimesUpTo(1100)| IsPrime(p+2)]; // _Vincenzo Librandi_, Dec 23 2019 %Y A108570 Subsequence of A330477. %Y A108570 Cf. A001359, A108604. %K A108570 easy,nonn %O A108570 1,1 %A A108570 _Giovanni Teofilatto_, Jul 05 2005 %E A108570 Extended by _Ray Chandler_, Jul 10 2005 %E A108570 Name and comment swapped by _Charles R Greathouse IV_, Dec 16 2019