Original entry on oeis.org
0, 1, 3, 7, 13, 25, 43, 48, 81, 95, 161, 173, 274, 276, 390, 474, 661, 841, 896, 978, 994, 1446, 1524, 1762, 1787, 1793, 1828, 2673, 2869, 3212, 4488, 4553, 5116, 5396, 5400, 7465, 7474, 8218
Offset: 1
A210762
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.
Original entry on oeis.org
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, 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, 8, 9, 10, 14, 15, 16, 17, 18, 19, 4, 5, 8, 9, 10, 14, 15, 16, 17
Offset: 2
Written as an irregular triangle:
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;
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, 8, 9, 10, 14, 15, 16, 17, 18, 19;
-
A210762 := proc(n)
local L,maxa ;
rec := [seq(A005132(j),j=0..n)] ;
maxa := max(op(rec)) ;
L := [] ;
for i from 0 to maxa do
if not member(i,rec) then
L := [op(L),i] ;
end if;
end do;
if nops(L) = 0 then
return [0] ;
end if;
L ;
end proc:
seq(op(A210762(n)),n=1..11) ; # R. J. Mathar, Apr 01 2012
Showing 1-2 of 2 results.
Comments