A113501 Indices of prime NSW numbers A088165.
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
Examples
NSW(1) = 7, NSW(2) = 41, NSW(3) = 239, NSW(9) = 9369319, ...
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
Programs
-
Mathematica
nsw = LinearRecurrence[{6, -1}, {7, 41}, 1000]; Position[nsw, ?(PrimeQ[#] &)] // Flatten (* _Amiram Eldar, Dec 07 2018 *) -
PARI
isok(n) = my(w=3+quadgen(32)); isprime(imag((1+w)*w^n)); \\ Michel Marcus, Dec 07 2018
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
Comments