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 A088259 #22 Sep 22 2024 17:58:27
%S A088259 1,4,8,16,32,36,100,128,196,256,400,576,676,1296,1600,2916,3136,4356,
%T A088259 5476,7056,8100,8192,8836,12100,13456,14400,15376,15876,16900,17956,
%U A088259 21316,22500,24336,25600,28900,30976,32400,33856,41616,42436,44100
%N A088259 Perfect powers which have at least one prime neighbor.
%C A088259 If K is a term and K-1 is the neighboring prime then it must be a Mersenne prime.
%C A088259 Conjecture: sequence is infinite.
%H A088259 Harvey P. Dale, <a href="/A088259/b088259.txt">Table of n, a(n) for n = 1..322</a> (all terms up to 10 million)
%t A088259 Join[{1},Select[Range[45000],GCD@@FactorInteger[#][[All,2]]>1 && AnyTrue[ #+{1,-1},PrimeQ]&]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Nov 05 2020 *)
%Y A088259 Intersection of A001597 and A045718.
%Y A088259 Cf. A088256, A088257, A088258.
%K A088259 nonn
%O A088259 1,2
%A A088259 _Amarnath Murthy_, Sep 27 2003
%E A088259 Corrected and extended by _Ray Chandler_, Sep 28 2003
%E A088259 Offset changed by _Andrew Howroyd_, Sep 22 2024