OFFSET
1,1
EXAMPLE
MAPLE
select(isprime@A007408, [$1..200]);
PROG
(PARI) num=1; den=1; for(k=2, 2000, k3=k^3; s=(num*k3+den)/(den*k3); num=numerator(s); den=denominator(s); if(isprime(num), print1(k", "))) \\ Herman Jamke (hermanjamke(AT)fastmail.fm), Jan 26 2008
(Python) # uses A007408gen() and imports from A007408
from sympy import isprime
def agen(): yield from (k for k, ak in enumerate(A007408gen(), 1) if isprime(ak))
print(list(islice(agen(), 15))) # Michael S. Branicky, Jun 26 2022
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
M. F. Hasler, Nov 11 2006
EXTENSIONS
More terms from Herman Jamke (hermanjamke(AT)fastmail.fm), Jan 26 2008
a(21)-a(24) from Alexander Adamchuk, Apr 26 2010
a(25)-a(26) from Michael S. Branicky, Nov 16 2024
STATUS
approved