|
|
A113501
|
|
Indices of prime NSW numbers A088165.
|
|
15
|
|
|
1, 2, 3, 9, 14, 23, 29, 81, 128, 210, 468, 473, 746, 950, 3344, 4043, 4839, 14376, 39521, 64563, 72984, 82899, 84338, 85206, 86121, 139160
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Very closely related to indices of prime Pell-Lucas numbers (A099088).
|
|
LINKS
|
|
|
EXAMPLE
|
NSW(1) = 7, NSW(2) = 41, NSW(3) = 239, NSW(9) = 9369319, ...
|
|
MATHEMATICA
|
nsw = LinearRecurrence[{6, -1}, {7, 41}, 1000]; Position[nsw, _?(PrimeQ[#] &)] // Flatten (* Amiram Eldar, Dec 07 2018 *)
|
|
PROG
|
(PARI) isok(n) = my(w=3+quadgen(32)); isprime(imag((1+w)*w^n)); \\ Michel Marcus, Dec 07 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|