|
Search: id:A104021
|
|
|
| A104021 |
|
Numbers n which can be represented as k^2*j, 0 < j =< k & (k, j) = 1. |
|
+0
6
|
|
| 4, 9, 16, 18, 25, 36, 48, 49, 50, 64, 75, 81, 98, 100, 121, 144, 147, 162, 169, 180, 192, 196, 225, 242, 245, 256, 289, 294, 300, 320, 324, 338, 361, 363, 400, 405, 441, 448, 450, 484, 507, 529, 567, 576, 578, 588, 605, 625, 648, 676, 700, 720, 722, 726, 729
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Leroy Quet, Home Page (listed in lieu of email address)
|
|
MATHEMATICA
|
Take[ Union[ Flatten[ Table[ If[ GCD[k, j] == 1, k^2*j, {}], {k, 27}, {j, k - 1}]]], 55]
|
|
CROSSREFS
|
Cf. A104020, A102448, A104023, A104026.
Sequence in context: A104020 A066694 A102646 this_sequence A073804 A015871 A035234
Adjacent sequences: A104018 A104019 A104020 this_sequence A104022 A104023 A104024
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet and Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 24 2005
|
|
|
Search completed in 0.002 seconds
|
