| 1, 5, 13, 29, 61, 5, 11, 509, 1021, 5, 4093, 19, 16381, 5, 13, 53, 11, 5, 1048573, 773, 4194301, 5, 16777213, 479, 37, 5, 11, 536870909, 23, 5, 9241, 29, 5113, 5, 242819, 47189, 11, 5, 13, 23, 47, 5, 5927, 2087, 227, 5, 11, 19, 59, 5, 13, 2203, 36217, 5, 181
(list; graph; listen)
|
|
|
OFFSET
|
2,2
|
|
|
MATHEMATICA
|
PrimeFactors[n_] := Flatten[ Table[ # [[1]], {1}] & /@ FactorInteger[n]]; Table[ PrimeFactors[2^n - 3][[1]], {n, 3, 60}] (from Robert G. Wilson v May 24 2004)
|
|
CROSSREFS
|
Cf. A093817, A050414, A050415.
Sequence in context: A023617 A023619 A020576 this_sequence A093817 A120274 A036982
Adjacent sequences: A093807 A093808 A093809 this_sequence A093811 A093812 A093813
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Yasutoshi Kohmoto (zbi74583(AT)boat.zero.ad.jp), May 11 2004
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), May 24 2004
|
|
