|
| |
|
|
A071375
|
|
Smallest m such that number of squarefree divisors of m equals n; a(n)=0 if no solution to A048250[x]=n exists.
|
|
0
| |
|
|
1, 0, 2, 3, 0, 5, 0, 7, 0, 0, 0, 6, 0, 13, 0, 0, 0, 10, 0, 19, 0, 0, 0, 14, 0, 0, 0, 0, 0, 29, 0, 21, 0, 0, 0, 22, 0, 37, 0, 0, 0, 26, 0, 43, 0, 0, 0, 33, 0, 0, 0, 0, 0, 34, 0, 39, 0, 0, 0, 38, 0, 61, 0, 0, 0, 0, 0, 67, 0, 0, 0, 30, 0, 73, 0, 0, 0, 0, 0, 57, 0, 0, 0, 65, 0, 0, 0, 0, 0, 58, 0, 0, 0, 0
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
FORMULA
| a(n)=Min{x; A048250[x]=n}, a(n)=0 if no solutions.
|
|
|
EXAMPLE
| n=256: a(256)=217=7.31, all divisors are squarefree and 1+7+31+217=256=n.
|
|
|
MATHEMATICA
| ffi[x_] := Flatten[FactorInteger[x]] lf[x_] := Length[FactorInteger[x]] ba[x_] := Table[Part[ffi[x], 2*w-1], {w, 1, lf[x]}] cor[x_] := Apply[Times, ba[x]] t=Table[0, {256}]; Do[s=DivisorSigma[1, cor[n]]; If[s<257&&t[[s]]==0, t[[s]]=n], {n, 1, 1000000}]; t
|
|
|
CROSSREFS
| Cf. A048250.
Sequence in context: A126436 A102394 A085563 * A061397 A093438 A047814
Adjacent sequences: A071372 A071373 A071374 * A071376 A071377 A071378
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), May 22 2002
|
| |
|
|
