| 3, 2, 3, 1, 1, 1, 1, 1, 5, 1, 3, 17, 1, 1, 7, 2, 3, 23, 1, 1, 11, 29, 3, 1, 1, 1, 37, 1, 41, 2, 19, 11, 11, 1, 7, 3, 41, 1, 13, 127, 47, 59, 2, 37, 5, 37, 59, 1, 2, 73, 59, 79, 73, 1, 1
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Sequence entries must be 1 or a prime.
|
|
LINKS
|
Dario Alejandro Alpern, Factorization using the Elliptic Curve Method
Hisanori Mishima, Factorization of n! + 1 (n = 1 to 100)
|
|
MATHEMATICA
|
PrimeFactors[n_Integer] := Flatten[ Table[ # [[1]], { # [[2]]}] & /@ FactorInteger[n]];
|
|
CROSSREFS
|
Cf. A089538, A089539, A089540, A089541.
Sequence in context: A086099 A048967 A103497 this_sequence A106693 A107335 A082391
Adjacent sequences: A085744 A085745 A085746 this_sequence A085748 A085749 A085750
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Jason Earls (zevi_35711(AT)yahoo.com), Jul 21 2003
|
|
EXTENSIONS
|
Extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 27 2003
a(55) from Ray Chandler (rayjchandler(AT)sbcglobal.net), Nov 09 2003
|
|
