OFFSET
1,3
COMMENTS
Terms of A032860 written in base 5.
PROG
(PARI) A(Nmax=100, K=4, A=[0..K], i=vector(2*K, i, max(1, i-K+1)), c(T, v)=apply(t->t+T, v))={for(n=0, oo, for(k=10, K*11, if(k%10<k\10, k%10|| i=concat(i, 1+#A))&& A=concat(A, c(k*10^n, A[i[K*n+k%10+1]..i[K*n+K+1]-1])); #A<Nmax||return(A)))}
CROSSREFS
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, Oct 05 2018
STATUS
approved