|
Search: id:A104025
|
|
|
| A104025 |
|
Least number k which can be written as k^2 * j, 0 < j <= k and (k, j) = 1 in n ways. |
|
+0
2
|
|
| 2, 1, 100, 900, 44100, 108900, 1232100, 11492100, 5336100, 12744900, 97416900
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
LINKS
|
Leroy Quet, Home Page (listed in lieu of email address)
|
|
MATHEMATICA
|
t = Sort[ Flatten[ Table[n = k^2*j; If[ GCD[k, j] == 1 && 10^5 < n < 10^8, n, {}], {k, 15000}, {j, k}]]]; l = Length[t]; t[[Select[ Range[l - 11], t[[ # ]] == t[[ # + 9]] &]]]
|
|
CROSSREFS
|
Cf. A102354, A104021, A104023.
Sequence in context: A095835 A147805 A141527 this_sequence A039923 A081708 A012004
Adjacent sequences: A104022 A104023 A104024 this_sequence A104026 A104027 A104028
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet and Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 23 2005
|
|
|
Search completed in 0.002 seconds
|
