|
| |
|
|
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).
a(27) > 221400. - Robert Price, Mar 29 2019
|
|
|
LINKS
|
Table of n, a(n) for n=1..26.
H. Li, T. MacHenry, Permanents and Determinants, Weighted Isobaric Polynomials, and Integer Sequences, J. Int. Seq. 16 (2013) #13.3.5, example 47.
Eric Weisstein's World of Mathematics, NSW Number
Eric Weisstein's World of Mathematics, Integer Sequence Primes
|
|
|
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
|
Cf. A002315, A088165, A099088.
Sequence in context: A116222 A338234 A048038 * A101067 A056645 A295857
Adjacent sequences: A113498 A113499 A113500 * A113502 A113503 A113504
|
|
|
KEYWORD
|
nonn,more
|
|
|
AUTHOR
|
Eric W. Weisstein, Jan 09 2006
|
|
|
EXTENSIONS
|
a(19)-a(20) from Eric W. Weisstein, May 22 2006
a(21) from Eric W. Weisstein, Aug 29 2006
a(22) from Eric W. Weisstein, Nov 11 2006
a(23) from Eric W. Weisstein, Nov 26 2006
a(24) from Eric W. Weisstein, Dec 10 2006
a(25) from Eric W. Weisstein, Jan 25 2007
a(26) from Robert Price, Dec 07 2018
|
|
|
STATUS
|
approved
|
| |
|
|
