This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A292145 #12 Oct 19 2017 08:34:17 %S A292145 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, %T A292145 50,48,19,45,64,21,22,40,23,54,72,44,81,26,75,63,29,52,30,100,31,80, %U A292145 56,98,33,60,34,35,121,108,37,96,38,68,39,90,128,41,42,144 %N A292145 A permutation of the natural numbers: A292144(A013929(n)). %H A292145 Peter Kagey, <a href="/A292145/b292145.txt">Table of n, a(n) for n = 1..10000</a> %o A292145 (PARI) a292144(n) = forstep (k=n-1, 1, -1, if (issquare(k*n), return (k))); return (0); %o A292145 lista(nn) = apply(x->a292144(x), select(x->(! issquarefree(x)), vector(nn, kk, kk))); \\ _Michel Marcus_, Sep 10 2017 %Y A292145 Cf. A013929, A292144. %K A292145 nonn %O A292145 1,2 %A A292145 _Peter Kagey_, Sep 09 2017