1,3

Harry J. Smith, Table of n, a(n) for n = 1..1000

(PARI) { for (n=1, 1000, p=precprime(n - 1);; while (p > 0 && !issquare(n%p), p=precprime(p - 1)); write("b065988.txt", n, " ", p) ) } \\ Harry J. Smith, Nov 05 2009

Sequence in context: A073890 A079311 A060474 * A075105 A265675 A094020

Adjacent sequences: A065985 A065986 A065987 * A065989 A065990 A065991

nonn

Reinhard Zumkeller, Dec 10 2001

approved