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 A163492 #11 Feb 06 2023 19:24:25 %S A163492 1,2,3,8,10,24,48,80,82,168,224,226,360,440,442,728,840,1088,1090, %T A163492 1224,1368,1522,1848,2026,2208,2400,3024,3250,3720,3968,4760,5040, %U A163492 5624,5928,6562,7920,8648,9802,10608,11026,11448,12322,13688,13690,14160,14640 %N A163492 Numbers such that the two adjacent integers are a perfect square and a prime. %C A163492 Also known as the Beprisque numbers. %H A163492 T. D. Noe, <a href="/A163492/b163492.txt">Table of n, a(n) for n = 1..1000</a> %H A163492 Planet Math, <a href="http://planetmath.org/BeprisqueNumber.html">Beprisque numbers</a> %e A163492 a(1) = 2 since 2 lies between 1(square) and 3(prime). %e A163492 a(2) = 3 since 3 lies between 2(prime) and 4(square). %t A163492 nn = 100; Sort[Select[Range[0, nn], PrimeQ[#^2 + 2] &]^2 + 1, Select[Range[nn], PrimeQ[#^2 - 2] &]^2 - 1] (* _T. D. Noe_, Aug 29 2012 *) %t A163492 Select[Range[15000],AnyTrue[#+{1,-1},PrimeQ]&&AnyTrue[{Sqrt[#-1],Sqrt[ #+1]},IntegerQ]&] (* _Harvey P. Dale_, Feb 06 2023 *) %Y A163492 Cf. A051700, A066635. %K A163492 nonn %O A163492 1,2 %A A163492 _Gaurav Kumar_, Jul 29 2009 %E A163492 Definition clarified by _R. J. Mathar_, Aug 08 2009 %E A163492 Number 1 added by _WG Zeist_, Aug 28 2012