Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
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
OFFSET
1,2
COMMENTS
Very closely related to indices of prime Pell-Lucas numbers (A099088).
a(27) > 221400. - Robert Price, Mar 29 2019
LINKS
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
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