Lucas Prime

Author

Eric W. Weisstein
April 24, 2009

This notebook downloaded from http://mathworld.wolfram.com/notebooks/PrimeNumbers/LucasPrime.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/LucasPrime.html.

©2009 Wolfram Research, Inc. except for portions noted otherwise

Primes

(p=Position[LucasL/@Range[100],_?PrimeQ]//Flatten)//Timing

LucasL/@p

Length[l={0,2,4,5,7,8,11,13,16,17,19,31,37,41,47,53,61,71,79,113,313,353,503,613,617,863,1097,1361,4787,4793,5851,7741,8467,10691,12251,13963,14449,19469,35449,36779,44507,51169,56003,81671,89849,94823,140057,148091,159521,183089,193201,202667,344293,387433,443609,532277,574219,616787,631181,637751,651821,692147,901657,1051849}]

Grid[{L[#],IntegerLength[Fibonacci[#]]}&/@l,Dividers->All,Alignment->Decimal]

Do[
Print[{n,l[[n]],PrimeQ[LucasL[l[[n]]]]//Timing}],
{n,Length[l]}
]