OFFSET
1,2
COMMENTS
Essentially the same as A063528. [R. J. Mathar, Sep 29 2008]
EXAMPLE
(8, 9) is the first occurrence of two consecutive numbers divisible by a square, so a(2) = 8.
MATHEMATICA
a = {1, 1}; k = 4; Do[ While[Min[a] < n, k++; a = Drop[a, 1]; a = Append[ a, Max[ Transpose[ FactorInteger[k]] [[2]] ]]]; Print[k - 1], {n, 2, 9}] (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Apr 02 2002
EXTENSIONS
More terms from Larry Reeves (larryr(AT)acm.org), Oct 12 2003
STATUS
approved