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 A330670 #39 Dec 21 2024 16:21:02 %S A330670 121,361,841,961,1681,3481,3721,5041,6241,7921,10201,11881,17161, %T A330670 19321,22201,22801,32041,32761,36841,39601,44521,52441,57121,58081, %U A330670 63001,72361,73441,78961,96721,109561,121801,128881,143641,151321,166801,167281,175561 %N A330670 Squares of primes congruent to 1 (mod 30). %C A330670 Sequence lists squares of prime numbers that end in 1 or 9. %e A330670 Prime 11*11=121 and 19*19=361; 121 and 361 are terms of this sequence. %e A330670 Prime 13*13=169 and 17*17=289; 169 and 289 are not terms of this sequence. %t A330670 Select[Range[360], PrimeQ[#] && Mod[#^2, 30] == 1 &]^2 (* _Amiram Eldar_, Dec 28 2019 *) %o A330670 (PARI) isok(m) = issquare(m) && isprime(sqrtint(m)) && ((m % 30) == 1); \\ _Michel Marcus_, Dec 26 2019 %Y A330670 Intersection of A001248 and A128470. %K A330670 nonn %O A330670 1,1 %A A330670 _Harry E. Neel_, Dec 24 2019