%I #7 Oct 03 2017 03:11:45
%S 4,8,12,13,15,18,30,33,37,46,54,55,56,58,59,62,63,66,70,74,78,83,84,
%T 87,92,104,115,116,119,124,136,146,148,150,152,154,159,163,176,183,
%U 184,187,192,210,211,212,213,215,216,217,220,221,225,226,230,231,235,236,240
%N Positions of zero digits in A167503 (when all terms are concatenated).
%C Also, positive integers not occurring in A167503 (bearing in mind that the terms of A167503 are written in base 3, but here numbers are written in base 10).
%e Sequence A167503: 1,2,10,12,20,21,100,101
%e Digit's position: 1 2 34 56 78 9A BCD EFG (A=10,...)
%e Thus the digits '0' occur at positions 4,8,12,13,15,...: this sequence.
%o (PARI) base(n,b=3,s=1) = { my( a=[ n%b ]); while( 0<n\=b, a=concat( n%b, a )); if( s, eval( Strchr( vectorsmall( #a,i,48+a[i] ))), a) }
%o {a=b=[]; for(n=1,99, #b>=n && for(i=a[n-1]+1,#b,b[i] && (a=concat(a,i)) && break); #a<n && a=concat(a,#b+1); b=concat(b,base(a[n],3,0))); for(i=1,#b, b[i] || print1(i","))}
%Y Cf. A167500-A167503.
%K nonn,base
%O 1,1
%A _M. F. Hasler_, Nov 05 2009
%E Edited by _Charles R Greathouse IV_, Aug 02 2010
|