OFFSET
1,5
COMMENTS
a(n) = floor(n/m), where m is the least positive nondivisor of n, as in A007978.
LINKS
Peter Kagey, Table of n, a(n) for n = 1..10000
EXAMPLE
a(10) = floor(10/3) = 3.
MATHEMATICA
y=120; z=2000;
t = Table[k := 1; While[Mod[n, k] == 0, k++]; k, {n, 1, z}] (* A007978 *)
Table[Floor[n/t[[n]]], {n, 1, y}] (* A213633 *)
Table[n - Floor[n/t[[n]]], {n, 1, y}] (* A213634 *)
Table[t[[n]]*Floor[n/t[[n]]], {n, 1, y}] (* A213635 *)
t1 = Table[n - t[[n]]*Floor[n/t[[n]]], {n, 1, z}] (* A213636 *)
Flatten[Position[t1, 1]] (* A213637 *)
Flatten[Position[t1, 2]] (* A213638 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jun 16 2012
STATUS
approved