|
Search: id:A096362
|
|
|
| A096362 |
|
Order in which prime factors first occur in the Lucas sequence. |
|
+0
6
|
|
| 2, 3, 7, 11, 29, 47, 19, 41, 199, 23, 521, 281, 31, 2207, 3571, 107, 9349, 2161, 211, 43, 307, 139, 461, 1103, 101, 151, 90481, 5779, 14503, 59, 19489, 2521, 3010349, 1087, 4481, 9901, 67, 63443, 71, 911, 103681, 54018521, 29134601, 79, 859, 1601, 3041
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
LINKS
|
R. Knott, The First 200 Lucas numbers and their factors
Hisanori Mishima, Lucas numbers (n=1 to 100)
|
|
MATHEMATICA
|
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)
|
|
CROSSREFS
|
Cf. A000032.
Sequence in context: A143926 A112840 A014981 this_sequence A005479 A120856 A138000
Adjacent sequences: A096359 A096360 A096361 this_sequence A096363 A096364 A096365
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Lekraj Beedassy (blekraj(AT)yahoo.com), Jun 30 2004
|
|
EXTENSIONS
|
Edited, corrected and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 01 2004
|
|
|
Search completed in 0.002 seconds
|
