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 A274932 #22 Jun 16 2025 00:32:16
%S A274932 529,729,6889,12769,162409,644809,851929,1261129,47969476,64048009,
%T A274932 317837584,1600240009,2822053129,24421563076,40001200009,84290347584,
%U A274932 107667328129,145381301521,160002400009,437766166321,788815751409
%N A274932 Squares m = k^2 with the property that nextprime(k) is a substring of m.
%H A274932 Chai Wah Wu, <a href="/A274932/b274932.txt">Table of n, a(n) for n = 1..39</a> (all terms < 4*10^18)
%e A274932 529 = 23^2, and nextprime(23) = 29 is a substring of 529, so 529 is a term.
%t A274932 Select[Range[2*10^6]^2,SequenceCount[IntegerDigits[#], IntegerDigits[ NextPrime[ Sqrt[ #]]]]>0&] (* The program uses the SequenceCount function from Mathematica version 10 *) (* _Harvey P. Dale_, Jul 13 2016 *)
%t A274932 Select[Range[2*10^6], {} != StringPosition @@ ToString /@ {#^2, NextPrime@ #} &]^2 (* _Giovanni Resta_, Jul 15 2016 *)
%Y A274932 Suggested by A052074.
%K A274932 nonn,base
%O A274932 1,1
%A A274932 _Harvey P. Dale_ and _N. J. A. Sloane_, Jul 13 2016