|
%I #7 Jun 14 2012 01:27:51
%S 2,3,5,8,11,32,37,46,123,237,332,408,772,827,1523,5610,11273,14505
%N Indices of prime Lucas 6-step numbers, A074584.
%C No other n < 30000.
%H Tony D. Noe and Jonathan Vos Post, <a href="http://www.cs.uwaterloo.ca/journals/JIS/VOL8/Noe/noe5.html">Primes in Fibonacci n-step and Lucas n-step Sequences,</a> J. of Integer Sequences, Vol. 8 (2005), Article 05.4.4
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Lucasn-StepNumber.html">Lucas n-Step Number</a>
%t a={-1, -1, -1, -1, -1, 6}; lst={}; Do[s=Plus@@a; a=RotateLeft[a]; a[[ -1]]=s; If[PrimeQ[s], AppendTo[lst, n]], {n, 30000}]; lst
%Y Cf. A105767 (prime Lucas 6-step numbers).
%K nonn
%O 1,1
%A _T. D. Noe_, Apr 22 2005
|
