|
|
A082299
|
|
Greatest common divisor of n and its sum of prime factors (with repetition).
|
|
16
|
|
|
1, 2, 3, 4, 5, 1, 7, 2, 3, 1, 11, 1, 13, 1, 1, 8, 17, 2, 19, 1, 1, 1, 23, 3, 5, 1, 9, 1, 29, 10, 31, 2, 1, 1, 1, 2, 37, 1, 1, 1, 41, 6, 43, 1, 1, 1, 47, 1, 7, 2, 1, 1, 53, 1, 1, 1, 1, 1, 59, 12, 61, 1, 1, 4, 1, 2, 67, 1, 1, 14, 71, 12, 73, 1, 1, 1, 1, 6, 79, 1, 3, 1, 83, 14, 1, 1, 1, 1, 89, 1, 1, 1, 1
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
For n > 4, a(n) = n iff n is prime.
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
a(100) = GCD(2*2*5*5,2+2+5+5) = GCD(2*2*5,2*7) = 2;
a(200) = GCD(2*2*2*5*5,2+2+2+5+5) = GCD(2*2*2*5,2*2*2*2) = 8.
|
|
MATHEMATICA
|
Table[GCD[Total[Times@@@FactorInteger[n]], n], {n, 100}] (* Harvey P. Dale, Dec 27 2015 *)
|
|
PROG
|
(PARI)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|