A213634 - OEIS

A213634

n-[n/m], where m is the least nondivisor of n (as in A007978) and [ ] = floor.

1, 2, 2, 3, 3, 5, 4, 6, 5, 7, 6, 10, 7, 10, 8, 11, 9, 14, 10, 14, 11, 15, 12, 20, 13, 18, 14, 19, 15, 23, 16, 22, 17, 23, 18, 29, 19, 26, 20, 27, 21, 32, 22, 30, 23, 31, 24, 39, 25, 34, 26, 35, 27, 41, 28, 38, 29, 39, 30, 52, 31, 42, 32, 43, 33, 50, 34, 46, 35, 47, 36

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

COMMENTS

If n is odd, a(n) = (n+1)/2. - Robert Israel, Oct 09 2016

LINKS

Robert Israel, Table of n, a(n) for n = 1..10000

EXAMPLE

a(10) = 10 - [10/3] = 7.

MAPLE

f:= proc(n) local m;

for m from 2 do if n mod m <> 0 then return n - iquo(n, m) fi od