OFFSET
1,1
COMMENTS
Larger entries are probable primes (BPSW plus random-base M-R). Values below a(n)=8148 have been proven prime. - Dana Jacobsen, Apr 30 2015
PROG
(Perl)
use ntheory ":all";
use Math::GMPz;
my @a = map { Math::GMPz->new($_) } (1, 1, 1, 1); for (1..100000) { push @a, ($a[-2]+$a[-1]*$a[-3])/$a[-4]; say ++$i, " $#a" if is_prime($a[-1]); }
# Dana Jacobsen, Apr 30 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jul 01 2011
EXTENSIONS
More terms from Dana Jacobsen, Apr 30 2015
STATUS
approved