|
Search: id:A104026
|
|
|
| A104026 |
|
Numbers n which can be represented as k^2*j, 0 < j =< k but not if (k, j) = 1. |
|
+0
3
|
|
| 32, 72, 108, 128, 200, 243, 288, 384, 392, 432, 486, 500, 512, 600, 675, 800, 864, 972, 1125, 1152, 1176, 1323, 1350, 1372, 1440, 1536, 1568, 1728, 1944, 1960, 2000, 2048, 2187, 2250, 2400, 2560, 2592, 2646, 2700, 2904, 3087, 3125, 3200, 3240, 3267, 3380
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
The complement of A104020 and A104021.
|
|
LINKS
|
Leroy Quet, Home Page (listed in lieu of email address)
|
|
EXAMPLE
|
32 is in the list because 32=4^2*2 but (4,2)=2.
|
|
MATHEMATICA
|
t = Take[ Union[ Flatten[ Table[k^2*j, {k, 70}, {j, k - 1}]]], 200]; u = Take[ Union[ Flatten[ Table[ If[ GCD[k, j] == 1, k^2*j, {}], {k, 70}, {j, k - 1}]]], 150]; Complement[t, u]
|
|
CROSSREFS
|
Cf. A104020, A104021.
Sequence in context: A135110 A101539 A106700 this_sequence A110230 A007797 A135269
Adjacent sequences: A104023 A104024 A104025 this_sequence A104027 A104028 A104029
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet and Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 25 2005
|
|
|
Search completed in 0.002 seconds
|
