This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A213637 #14 Feb 08 2014 07:14:20 %S A213637 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 A213637 37,39,40,41,43,45,46,47,49,51,52,53,55,57,58,59,61,63,64,65,67,69,70, %U A213637 71,73,75,76,77,79,81,82,83,85,87,88,89,91,93,94,95,96,97,99 %N A213637 Values of n for which A213636(n) = 1. %C A213637 a(n) is the position of the n-th 1 in the sequence of remainders when each positive integer is divided by its least nondivisor (as in A007978). %H A213637 Vincenzo Librandi, <a href="/A213637/b213637.txt">Table of n, a(n) for n = 1..1000</a> %t A213637 (See A213636.) %t A213637 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 A213637 nonn,easy %O A213637 1,2 %A A213637 _Clark Kimberling_, Jun 16 2012