|
|
A181800
|
|
Powerful numbers that are the least integer of their prime signature.
|
|
15
|
|
|
1, 4, 8, 16, 32, 36, 64, 72, 128, 144, 216, 256, 288, 432, 512, 576, 864, 900, 1024, 1152, 1296, 1728, 1800, 2048, 2304, 2592, 3456, 3600, 4096, 4608, 5184, 5400, 6912, 7200, 7776, 8192, 9216, 10368, 10800, 13824, 14400, 15552, 16384, 18432, 20736, 21600, 27000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
PROG
|
(PARI) is(n)=if(n<4, return(n==1)); my(f=factor(n)); vecmin(f[, 2])>1 && f[, 1]~ == primes(#f~) && f[, 2] == vecsort(f[, 2], , 4) \\ Charles R Greathouse IV, Sep 14 2015
|
|
CROSSREFS
|
Cf. A001694 (powerful numbers), A025487 (least integer of each prime signature).
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|