|
Search: id:A104022
|
|
|
| A104022 |
|
Number n which have more than one way of being written as k^2*j, 0 < j <= k. |
|
+0
5
|
|
| 64, 100, 144, 196, 256, 324, 400, 484, 512, 576, 648, 676, 729, 784, 800, 900, 968, 1024, 1089, 1152, 1156, 1296, 1352, 1444, 1521, 1568, 1600, 1728, 1764, 1800, 1936, 2025, 2028, 2048, 2116, 2304, 2312, 2352, 2500, 2592, 2601, 2700, 2704, 2888, 2916
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
t = Sort[ Flatten[ Table[k^2*j, {k, 55}, {j, k}]]]; u = Table[ Count[t, n], {n, 3000}]; Select[ Range[3000], u[[ # ]] > 1 &]
|
|
CROSSREFS
|
Cf. A104023, A102354, A104020, A104024.
Sequence in context: A114828 A036330 A046306 this_sequence A061099 A118488 A088033
Adjacent sequences: A104019 A104020 A104021 this_sequence A104023 A104024 A104025
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet (qq-quet(AT)mindspring.com) and Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 23 2005
|
|
|
Search completed in 0.002 seconds
|
