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
Keywords
Links
- Peter Kagey, Table of n, a(n) for n = 1..10000
Programs
-
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