OFFSET
1,1
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..1405
EXAMPLE
a(1) = 43:
0^4 + 0^3 + 0^2 + 0 + 43 = 43;
1^4 + 1^3 + 1^2 + 1 + 43 = 47;
2^4 + 2^3 + 2^2 + 2 + 43 = 73;
3^4 + 3^3 + 3^2 + 3 + 43 = 163;
4^4 + 4^3 + 4^2 + 4 + 43 = 383;
5^4 + 5^3 + 5^2 + 5 + 43 = 823;
6^4 + 6^3 + 6^2 + 6 + 43 = 1597;
all seven are primes.
MATHEMATICA
Select[f=k^4 + k^3 + k^2 + k; k = {0, 1, 2, 3, 4, 5, 6}; Prime[Range[2000000]], And @@ PrimeQ[#+f] &]
Select[Prime[Range[200000]], AllTrue[#+{4, 30, 120, 340, 780, 1554}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jan 10 2017 *)
PROG
(PARI) forprime(p=1, 1e6, if( isprime(p+0)& isprime(p+4)& isprime(p+30)& isprime(p+120)& isprime(p+340)& isprime(p+780)& isprime(p+1554), print1(p, ", ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
K. D. Bajpai, Jan 11 2015
STATUS
approved