OFFSET
1,1
COMMENTS
All terms are multiples of 12.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
FORMULA
n/2 +/-1 and (n^4)/2 +/- 1 are primes.
EXAMPLE
384=191+193, 384^3=147456=73727+73729.
MATHEMATICA
Select[12 Range[30000], AllTrue[{#/2+1, #/2-1, #^4/2+1, #^4/2-1}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Feb 01 2017 *)
PROG
(PARI) isok(n) = !(n % 2) && isprime(n/2-1) && isprime(n/2+1) && isprime(n^4/2-1) && isprime(n^4/2+1); \\ Michel Marcus, Oct 19 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jun 21 2012
STATUS
approved