|
|
|
|
1, 2, 4, 3, 9, 8, 5, 6, 16, 12, 7, 18, 25, 10, 11, 20, 27, 36, 32, 13, 24, 14, 15, 28, 49, 17, 50, 48, 19, 45, 64, 21, 22, 40, 23, 54, 72, 44, 81, 26, 75, 63, 29, 52, 30, 100, 31, 80, 56, 98, 33, 60, 34, 35, 121, 108, 37, 96, 38, 68, 39, 90, 128, 41, 42, 144
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
PROG
|
(PARI) a292144(n) = forstep (k=n-1, 1, -1, if (issquare(k*n), return (k))); return (0);
lista(nn) = apply(x->a292144(x), select(x->(! issquarefree(x)), vector(nn, kk, kk))); \\ Michel Marcus, Sep 10 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|