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 A027749 #28 Mar 31 2017 22:48:29 %S A027749 1,2,3,2,4,5,2,3,6,7,2,4,8,3,9,2,5,10,11,2,3,4,6,12,13,2,7,14,3,5,15, %T A027749 2,4,8,16,17,2,3,6,9,18,19,2,4,5,10,20,3,7,21,2,11,22,23,2,3,4,6,8,12, %U A027749 24,5,25,2,13,26,3,9,27,2,4,7,14,28,29,2,3,5,6,10,15,30,31,2,4,8,16,32,3,11,33,2,17,34,5,7,35 %N A027749 Take the list 1,2,3,4,... and replace each n with all d > 1 that divide n. %C A027749 a(A002541(n)+1)=n; a(A002541(n)+2)=A020639(n+1). - _Reinhard Zumkeller_, Nov 22 2003 %C A027749 Seen as a triangle read by rows: T(1,1)=1 and T(n,k)=A027750(n,k+1) for n>1, 1<=k<A000005(n). - _Reinhard Zumkeller_, Oct 01 2012 %H A027749 Reinhard Zumkeller, <a href="/A027749/b027749.txt">Rows n = 1..250 of triangle, flattened</a> %t A027749 Join[{1},Flatten[Rest[Divisors[#]]&/@Range[40]]] (* _Harvey P. Dale_, Jun 28 2011 *) %o A027749 (Haskell) %o A027749 a027749 n k = a027749_tabf !! (n-1) !! (k-1) %o A027749 a027749_row n = a027749_tabf !! n %o A027749 a027749_tabf = [1] : map tail (tail a027750_tabf) %o A027749 -- _Reinhard Zumkeller_, Oct 01 2012, Oct 19 2011, Jul 11 2011 %Y A027749 Cf. A032741, A027750. %K A027749 nonn,easy,nice,tabf %O A027749 1,2 %A A027749 _N. J. A. Sloane_ %E A027749 More terms from Scott Lindhurst (ScottL(AT)alumni.princeton.edu) %E A027749 Keyword tabf added by _Reinhard Zumkeller_, Oct 01 2012