|
Search: id:A120700
|
|
|
| A120700 |
|
a(n) = least refactorable number k having the n-th prime as its greatest prime factor. |
|
+0
1
|
|
| 2, 9, 40, 56, 88, 104, 136, 152, 184, 232, 248, 296, 328, 344, 376, 424, 472, 488, 536, 568, 584, 632, 664, 712, 776, 808, 824, 856, 872, 904, 1016, 1048, 1096, 1112, 1192, 1208, 1256, 1304, 1336, 1384, 1432, 1448, 1528, 1544, 1576, 1592, 1688, 1784, 1816
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
f[n_] := Block[{a = Mod[n, DivisorSigma[0, n]], b = PrimePi[FactorInteger[n][[ -1, 1]]]}, {a, b}]; t = Table[0, {100}]; Do[c = f[n]; If[c[[1]] == 0 && t[[c[[2]]]] == 0, t[[c[[2]]]] = n], {n, 2, 1831}]
|
|
CROSSREFS
|
Cf. A033950, A036878.
Adjacent sequences: A120697 A120698 A120699 this_sequence A120701 A120702 A120703
Sequence in context: A095939 A096359 A020002 this_sequence A075873 A124722 A019066
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Walter Kehowski (wkehowski(AT)cox.net) and Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 28 2006
|
|
|
Search completed in 0.002 seconds
|
