|
%I #28 Mar 29 2019 19:58:23
%S 1,2,3,9,14,23,29,81,128,210,468,473,746,950,3344,4043,4839,14376,
%T 39521,64563,72984,82899,84338,85206,86121,139160
%N Indices of prime NSW numbers A088165.
%C Very closely related to indices of prime Pell-Lucas numbers (A099088).
%C a(27) > 221400. - _Robert Price_, Mar 29 2019
%H H. Li, T. MacHenry, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL16/MacHenry/machenry7.html">Permanents and Determinants, Weighted Isobaric Polynomials, and Integer Sequences</a>, J. Int. Seq. 16 (2013) #13.3.5, example 47.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/NSWNumber.html">NSW Number</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/IntegerSequencePrimes.html">Integer Sequence Primes</a>
%e NSW(1) = 7, NSW(2) = 41, NSW(3) = 239, NSW(9) = 9369319, ...
%t nsw = LinearRecurrence[{6, -1}, {7, 41}, 1000]; Position[nsw, _?(PrimeQ[#] &)] // Flatten (* _Amiram Eldar_, Dec 07 2018 *)
%o (PARI) isok(n) = my(w=3+quadgen(32)); isprime(imag((1+w)*w^n)); \\ _Michel Marcus_, Dec 07 2018
%Y Cf. A002315, A088165, A099088.
%K nonn,more
%O 1,2
%A _Eric W. Weisstein_, Jan 09 2006
%E a(19)-a(20) from _Eric W. Weisstein_, May 22 2006
%E a(21) from _Eric W. Weisstein_, Aug 29 2006
%E a(22) from _Eric W. Weisstein_, Nov 11 2006
%E a(23) from _Eric W. Weisstein_, Nov 26 2006
%E a(24) from _Eric W. Weisstein_, Dec 10 2006
%E a(25) from _Eric W. Weisstein_, Jan 25 2007
%E a(26) from _Robert Price_, Dec 07 2018
|
