login
a(0)=1. a(n) = number of earlier terms of the sequence that divide n(n+1)/2.
1

%I #10 Sep 16 2015 12:25:10

%S 1,1,2,3,3,4,4,5,7,5,4,5,5,3,10,14,6,5,5,10,17,6,2,12,21,8,5,12,6,12,

%T 12,8,19,6,11,23,11,3,7,28,16,9,9,6,26,16,3,23,28,11,15,16,5,9,22,26,

%U 28,8,2,26,26,2,13,39,30,21,10,7,19,23,13,26,26,2,16,32,17,18,10,25,45,10,2

%N a(0)=1. a(n) = number of earlier terms of the sequence that divide n(n+1)/2.

%e a(7)=5 because among the first seven terms of the sequence, namely 1,1,2,3,3,4,4, only 1,1,2,4 and 4 divide 7*8/2=28.

%p a[0]:=1: for n from 1 to 100 do a[n]:=0: for j from 0 to n-1 do if type(n*(n+1)/2/a[j], integer)=true then a[n]:=a[n]+1 else fi: od: od: seq(a[n],n=0..100); # _Emeric Deutsch_, May 22 2007

%t a = {1}; For[n = 1, n < 80, n++, AppendTo[a, Length[Select[(n*(n + 1)/2)/a, IntegerQ[ # ] & ]]]]; a (* _Stefan Steinerberger_, Jun 01 2007 *)

%Y Cf. A130121.

%K nonn

%O 0,3

%A _Leroy Quet_, May 10 2007

%E More terms from _Emeric Deutsch_ and _Stefan Steinerberger_, May 22 2007