OFFSET
1,1
LINKS
Lei Zhou, Table of n, a(n) for n = 1..10000
EXAMPLE
449 is a prime number. 449+1 = 450 = 2*3^2*5^2, 5^3 = 125 < 449; 449-1 = 448 = 2^6*7, 7^3 = 343 < 449, so 449 is in this list.
457 is a prime number. 457+1 = 458 = 2*229, 229^3 > 457, so 457 is NOT in this list.
MATHEMATICA
p = 1; Table[
While[p = NextPrime[p]; fp = Last[FactorInteger[p + 1]][[1]];
fm = Last[FactorInteger[p - 1]][[1]]; (fp^3 >= p) || (fm^3 >=
p)]; p, {n, 1, 37}]
PROG
(PARI) isok(p) = isprime(p) && (p>2) && (vecmax(factor(p-1)[, 1])^3 < p) && (vecmax(factor(p+1)[, 1])^3 < p); \\ Michel Marcus, Jan 10 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Lei Zhou, Mar 16 2017
EXTENSIONS
Definition corrected by Zak Seidov, Dec 04 2017
STATUS
approved