OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..1000
MAPLE
select(t -> andmap(isprime, [2*t+1, t^2+t+1, t^3+t+1, t^4+t+1]), [$1..2*10^5]); # Robert Israel, Dec 15 2017
PROG
(Haskell)
a219117_list = filter (all (== 1) . p) [1..] where
p x = map (a010051 . (+ (x + 1)) . (x ^)) [1..4]
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Nov 12 2012
STATUS
approved