OFFSET
1,1
COMMENTS
EXAMPLE
Sequence A167503: 1,2,10,12,20,21,100,101
Digit's position: 1 2 34 56 78 9A BCD EFG (A=10,...)
Thus the digits '0' occur at positions 4,8,12,13,15,...: this sequence.
PROG
(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) }
{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", "))}
CROSSREFS
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, Nov 05 2009
EXTENSIONS
Edited by Charles R Greathouse IV, Aug 02 2010
STATUS
approved