A292145 A permutation of the natural numbers: A292144(A013929(n)).

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

Links

Peter Kagey, Table of n, a(n) for n = 1..10000

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

Cf. A013929, A292144.

Sequence in context: A284572 A157182 A343232 * A297552 A286555 A243353

Adjacent sequences: A292142 A292143 A292144 * A292146 A292147 A292148

Keyword

nonn

Author

Peter Kagey, Sep 09 2017

Status

approved