%I #7 Jun 14 2012 01:28:23
%S 3,7,31,239,1871,3299217791,101312422979,48163250752607,
%T 3858266531308645633776466396252776719,
%U 31313481899920920568064578921684656674109265283366018689568994494028479
%N Prime Lucas 6-step numbers, A074584.
%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, s]], {n, 1000}]; lst
%Y Cf. A105766 (indices of prime Lucas 6-step numbers).
%K nonn
%O 1,1
%A _T. D. Noe_, Apr 22 2005
|