cp's OEIS Frontend

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.

A163492 Numbers such that the two adjacent integers are a perfect square and a prime.

This page as a plain text file.
%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