login
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.
2

%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