OFFSET
1,1
LINKS
David A. Corneth, Table of n, a(n) for n = 1..107 (first 71 terms from Harvey P. Dale, terms <= 10^9)
EXAMPLE
17 is a term as 17^3 = 4913 which has even digits on one end and odd digits at the other. - David A. Corneth, Mar 27 2021
MAPLE
q:= n-> (l-> add(irem(l[i]+l[i-1], 2), i=2..nops(l))<2)(convert(n^3, base, 10)):
select(q, [ithprime(n)$n=1..20000])[]; # Alois P. Heinz, Mar 27 2021
MATHEMATICA
Select[Prime[Range[13000]], Length[Split[If[OddQ[#], 1, 0]&/@ IntegerDigits[ #^3]]]<3&] (* Harvey P. Dale, Dec 31 2013 *)
PROG
(Python)
from sympy import primerange
from itertools import groupby
def ok(n): return len([k for k, g in groupby([int(d in "13579") for d in str(n)])]) <= 2
def aupto(limit): return [p for p in primerange(2, limit+1) if ok(p**3)]
print(aupto(201673)) # Michael S. Branicky, Mar 27 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Offset changed to 1 by David A. Corneth, Mar 27 2021
STATUS
approved