login
A292145
A permutation of the natural numbers: A292144(A013929(n)).
1
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
OFFSET
1,2
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
Sequence in context: A284572 A157182 A343232 * A297552 A286555 A243353
KEYWORD
nonn
AUTHOR
Peter Kagey, Sep 09 2017
STATUS
approved