|
|
A323353
|
|
Numbers k such that A015525(k) is prime.
|
|
1
|
|
|
2, 3, 7, 11, 13, 73, 401, 421, 677, 3673, 4903, 13147, 24547
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
PROG
|
(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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more,hard
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|