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.

A340640 Perfect powers such that the two immediately adjacent perfect powers have at least one largest exponent A025479 greater than 2.

This page as a plain text file.
%I A340640 #9 Jan 14 2021 15:03:06
%S A340640 4,9,25,27,32,36,49,64,81,100,121,125,128,144,196,225,243,256,289,324,
%T A340640 361,484,529,576,676,784,961,1000,1024,1089,1225,1296,1331,1369,1681,
%U A340640 1764,2025,2116,2187,2197,2209,2304,2500,2704,2809,3025,3136,3364,3481,3969
%N A340640 Perfect powers such that the two immediately adjacent perfect powers have at least one largest exponent A025479 greater than 2.
%e A340640 a(1) = 4 because the next perfect power is 8 = 2^3, i.e., its exponent is > 2.
%e A340640 a(2) = 9: the exponents of the neighbors 8 = 2^3 and 16 = 2^4 are both > 2.
%e A340640 16 is not in the sequence because both neighboring perfect powers 9 = 3^2 and 25 = 5^2 have exponents 2.
%e A340640 Neighbors with exponents > 2 of the next terms: a(3) = 25 (16 = 2^3), a(4) = 27 (32 = 2^5), a(5) = 32 (27 = 3^3), a(6) = 36 (32 = 2^5), a(7) = 49 (64 = 2^6), a(8) = 64 (81 = 3^4).
%o A340640 (PARI) a340640(limit)={my(p2=999, p1=2, n2=1, n1=4); for(n=5, limit, my(p0=ispower(n)); if(p0>1, if(p2+p0>4, print1(n1, ", ")); n2=n1; n1=n; p2=p1; p1=p0))};
%o A340640 a340640(5000)
%Y A340640 Cf. A000290, A001597, A025479, A111245, A153158, A340586, A340641.
%K A340640 nonn
%O A340640 1,1
%A A340640 _Hugo Pfoertner_, Jan 14 2021