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
KEYWORD
nonn
AUTHOR
Peter Kagey, Sep 09 2017
STATUS
approved