cp's OEIS Frontend

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.

A027749 Take the list 1,2,3,4,... and replace each n with all d > 1 that divide n.

This page as a plain text file.
%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