|
%I #10 May 15 2020 13:07:06
%S 9,11,13,15,16,18,19,21,22,24,25,26,28,29,30,31,33,34,35,36,38,39,40,
%T 41,43,44,45,46,47,49,50,51,52,53,54,56,57,58,59,60,61,63,64,65,66,67,
%U 68,70,71,72,73,74,75,76,78,79,80
%N Numbers missing from Pascal's spiral A334742.
%H Robert Israel, <a href="/A334688/b334688.txt">Table of n, a(n) for n = 1..10000</a>
%p V:= Array(-10..10,-10..10): t:=1:
%p i:= 1: j:= 0: V[0,0]:= 1: R:= NULL:
%p do
%p u:= V[i-1,j]+V[i+1,j]+V[i,j-1]+V[i,j+1];
%p V[i,j]:= u;
%p R:= R, $(t+1)..(u-1);
%p t:= u;
%p if u > 100 then break fi;
%p if j > -i and j < i then j:= j+1
%p elif i > -j and i <= j then i:= i-1
%p elif i < j and j <= -i then j:= j-1
%p else i:= i+1
%p fi;
%p od:
%p R; # _Robert Israel_, May 15 2020
%Y Cf. A334742.
%K nonn
%O 1,1
%A _N. J. A. Sloane_, May 10 2020
|
