|
%I #23 Apr 12 2014 00:54:52
%S 2,2,4,5,4,5,4,5,4,5,8,9,10,11,12,4,5,8,9,10,11,12,14,15,16,17,18,19,
%T 4,5,8,9,10,11,14,15,16,17,18,19,4,5,8,9,10,11,14,15,16,17,18,19,4,5,
%U 8,9,10,14,15,16,17,18,19,4,5,8,9,10,14,15,16,17
%N Triangle read by rows in which row n lists the positive integers smaller than the currently largest number in Recamán's sequence A005132 after the n-th stage, but not yet present in Recamán's sequence.
%C The number of positive integers in row n is A210612(n).
%H <a href="/index/Rea#Recaman">Index entries for sequences related to Recamán's sequence</a>
%e Written as an irregular triangle:
%e 2;
%e 2, 4, 5;
%e 4, 5;
%e 4, 5;
%e 4, 5, 8, 9, 10, 11, 12;
%e 4, 5, 8, 9, 10, 11, 12, 14, 15, 16, 17, 18, 19;
%e 4, 5, 8, 9, 10, 11, 14, 15, 16, 17, 18, 19;
%e 4, 5, 8, 9, 10, 11, 14, 15, 16, 17, 18, 19;
%e 4, 5, 8, 9, 10, 14, 15, 16, 17, 18, 19;
%p A210762 := proc(n)
%p local L,maxa ;
%p rec := [seq(A005132(j),j=0..n)] ;
%p maxa := max(op(rec)) ;
%p L := [] ;
%p for i from 0 to maxa do
%p if not member(i,rec) then
%p L := [op(L),i] ;
%p end if;
%p end do;
%p if nops(L) = 0 then
%p return [0] ;
%p end if;
%p L ;
%p end proc:
%p seq(op(A210762(n)),n=1..11) ; # _R. J. Mathar_, Apr 01 2012
%Y Cf. A005132, A210606-A210613.
%K nonn,tabf,less
%O 2,1
%A _Omar E. Pol_, Mar 25 2012
|
