cp's OEIS Frontend

A276782 Where record values occur in A276781, when starting from A276781(2)=1.

%I A276782 #32 Feb 15 2020 08:03:37
%S A276782 2,6,15,22,36,58,95,96,147,148,209,210,305,306,901,902,903,904,905,
%T A276782 906,1149,1150,1353,1354,1355,1356,1357,1358,1359,1360,5621,5622,8499,
%U A276782 8500,9585,9586,15719,15720,15721,15722,15723,15724,15725,15726,19653,19654,19655,19656,19657,19658,19659,19660,31449
%N A276782 Where record values occur in A276781, when starting from A276781(2)=1.
%C A276782 Terms at the end of each run, that is, terms k that are not followed by k+1 (i.e., this excludes terms like 95, 147, 209, 901 .. 905, 1149, ...) form a subsequence of A181062. - _Antti Karttunen_, Jan 20 2020
%H A276782 Antti Karttunen, <a href="/A276782/b276782.txt">Table of n, a(n) for n = 1..210</a> (terms 1..72 from Chai Wah Wu)
%H A276782 Christophe Soulé, <a href="https://vimeo.com/100212123">Le triangle de Pascal et ses propriétés</a>, Lecture, Soc. Math. de France, Feb 13 2008.
%p A276782 A276781 := proc(n)
%p A276782     local b,k;
%p A276782     for b from 0 to floor(n/2+1) do
%p A276782         igcd(seq(binomial(n,k),k=b..n-b)) ;
%p A276782         if % > 1 then
%p A276782             return b ;
%p A276782         end if;
%p A276782     end do:
%p A276782 end proc:
%p A276782 am := -1 ;
%p A276782 for n from 2 do
%p A276782     an := A276781(n) ;
%p A276782     if an > am then
%p A276782         printf("%d,\n",n) ;
%p A276782         am := an ;
%p A276782     end if;
%p A276782 end do: # _R. J. Mathar_, Sep 30 2016
%t A276782 Function[t, First@ Position[t, #] & /@ Range@ Max@ t][{0}~Join~Table[b = 1; While[GCD @@ Map[Binomial[n, #] &, Range[b, n - b]] == 1, b++]; b, {n, 2, 1500}]] // Flatten (* _Michael De Vlieger_, Oct 03 2016 *)
%o A276782 (PARI)
%o A276782 A276781(n) = if(1==n,1,forstep(k=n,1,-1,if(isprimepower(k),return(1+n-k))));
%o A276782 m=0; k=0; n=1; while(k<210,n++; if((t=A276781(n))>m, m=t; k++; print1(n, ", "))); \\ _Antti Karttunen_, Jan 29 2020
%Y A276782 Cf. A181062, A276781.
%K A276782 nonn
%O A276782 1,1
%A A276782 _N. J. A. Sloane_, Sep 29 2016
%E A276782 a(11)-a(30) from _R. J. Mathar_, Sep 30 2016
%E A276782 More terms from _Chai Wah Wu_, Oct 02 2016
%E A276782 Definition amended because of the changed definition of A276781, while keeping the terms same as before. - _Antti Karttunen_, Jan 29 2020