|
Search: id:A117818
|
|
| |
|
| 1, 2, 3, 2, 5, 3, 7, 4, 3, 5, 11, 6, 13, 7, 5, 8, 17, 9, 19, 10, 7, 11, 23, 12, 5, 13, 9, 14, 29, 15, 31, 16, 11, 17, 7, 18, 37, 19, 13, 20, 41, 21, 43, 22, 15, 23, 47, 24, 7, 25, 17, 26, 53, 27, 11, 28, 19, 29, 59, 30, 61, 31, 21, 32, 13, 33, 67
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
A026741 generalized to give either a prime or the largest largest proper divisor of a nonprime.
|
|
MATHEMATICA
|
Table[If[PrimeQ[n], n, If[n == 1, 1, n/FactorInteger[n][[1, 1]]]], {n, 1, 76}]
|
|
CROSSREFS
|
Cf. A032742, A026741.
Adjacent sequences: A117815 A117816 A117817 this_sequence A117819 A117820 A117821
Sequence in context: A095163 A033677 A116548 this_sequence A073890 A079311 A060474
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Apr 30 2006
|
|
EXTENSIONS
|
Edited by Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Jul 22 2007
|
|
|
Search completed in 0.002 seconds
|
