%I A096362
%S A096362 2,3,7,11,29,47,19,41,199,23,521,281,31,2207,3571,107,9349,2161,211,43,
%T A096362 307,139,461,1103,101,151,90481,5779,14503,59,19489,2521,3010349,1087,
%U A096362 4481,9901,67,63443,71,911,103681,54018521,29134601,79,859,1601,3041
%N A096362 Order in which prime factors first occur in the Lucas sequence.
%H A096362 R. Knott, <a href="http://www.mcs.surrey.ac.uk/Personal/R.Knott/Fibonacci/
               lucas200.html">The First 200 Lucas numbers and their factors</a>
%H A096362 Hisanori Mishima, <a href="http://www.asahi-net.or.jp/~KC2H-MSM/mathland/
               matha1/matha113.htm">Lucas numbers (n=1 to 100)</a>
%t A096362 PrimeFactors[n_Integer] := Flatten[ Table[ # [[1]], {1}] & /@ FactorInteger[n]]; 
               L[n_] := Fibonacci[n - 1] + Fibonacci[n + 1]; pf = {}; f[n_] := Block[{p 
               = PrimeFactors[L[n]]}, l = Length[p]; k = 1; While[k <= l, If[ Position[ 
               pf, p[[k]]] == {}, AppendTo[ pf, p[[k]] ]]; k++ ]]; Do[ f[n], {n, 
               40}]; pf (from Robert G. Wilson v Jul 01 2004)
%Y A096362 Cf. A000032.
%Y A096362 Sequence in context: A143926 A112840 A014981 this_sequence A005479 A120856 
               A138000
%Y A096362 Adjacent sequences: A096359 A096360 A096361 this_sequence A096363 A096364 
               A096365
%K A096362 nonn
%O A096362 0,1
%A A096362 Lekraj Beedassy (blekraj(AT)yahoo.com), Jun 30 2004
%E A096362 Edited, corrected and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), 
               Jul 01 2004