|
| |
|
|
A085393
|
|
Difference between the largest and the smallest prime factor of greatest proper divisor of n.
|
|
2
| |
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 1, 0, 0, 0, 5, 0, 2, 0, 0, 0, 0, 0, 1, 0, 0, 0, 3, 0, 4, 0, 9, 2, 0, 0, 1, 0, 0, 0, 11, 0, 0, 0, 5, 0, 0, 0, 3, 0, 0, 4, 0, 0, 8, 0, 15, 0, 2, 0, 1, 0, 0, 0, 17, 0, 10, 0, 3, 0, 0, 0, 5, 0, 0, 0, 9, 0, 2, 0, 21, 0, 0, 0, 1, 0, 0, 8, 3, 0, 14
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,20
|
|
|
FORMULA
| A085392 - A014673.
|
|
|
MATHEMATICA
| PrimeFactors[n_] := Flatten[ Table[ # [[1]], {1}] & /@ FactorInteger[n]]; f[n_] := Block[{gpd = Divisors[n][[ -2]]}, If[gpd == 1, 0, PrimeFactors[gpd][[ -1]] - PrimeFactors[gpd][[1]] ]]; Table[ If[n == 1, 0, f[n]], {n, 1, 102}]
|
|
|
CROSSREFS
| Sequence in context: A108707 A046775 A204060 * A128980 A096693 A193139
Adjacent sequences: A085390 A085391 A085392 * A085394 A085395 A085396
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com) and Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Jun 26 2003
|
| |
|
|
