%I #14 Feb 08 2014 07:14:20
%S 1,3,4,5,7,9,10,11,13,15,16,17,19,21,22,23,25,27,28,29,31,33,34,35,36,
%T 37,39,40,41,43,45,46,47,49,51,52,53,55,57,58,59,61,63,64,65,67,69,70,
%U 71,73,75,76,77,79,81,82,83,85,87,88,89,91,93,94,95,96,97,99
%N Values of n for which A213636(n) = 1.
%C a(n) is the position of the nth 1 in the sequence of remainders when each positive integer is divided by its least nondivisor (as in A007978).
%H Vincenzo Librandi, <a href="/A213637/b213637.txt">Table of n, a(n) for n = 1..1000</a>
%t (See A213636.)
%t rem[n_]:=Module[{lnd=First[Complement[Range[n],Divisors[n]]]},Mod[n,lnd]];Flatten[Position[Join[{1,2},Array[rem,100,3]],1]] (* _Harvey P. Dale_, Feb 07 2014 *)
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Jun 16 2012
