A323353 Numbers k such that A015525(k) is prime.
2, 3, 7, 11, 13, 73, 401, 421, 677, 3673, 4903, 13147, 24547, 58481, 64499
Offset: 1
Programs
-
PARI
print1(2,", ");anm2=1;anm1=3;for(n=3,1000,an=3*anm1+8*anm2;anm2=anm1;anm1=an;if(isprime(an),print1(n,", ")))
-
Perl
use ntheory ":all"; sub isok { is_prob_prime(lucasu(3, -8, $[0])) }; for (1..700) { print "$\n" if isok($) }; # _Daniel Suteu, Jan 12 2019
Extensions
a(13) from Daniel Suteu, Jan 12 2019
a(14)-a(15) from Michael S. Branicky, Sep 02 2025