|
%I #5 Oct 06 2018 09:38:04
%S 0,1,2,3,4,5,10,20,21,30,31,32,40,41,42,43,50,51,52,53,54,101,102,103,
%T 104,105,201,202,203,204,205,212,213,214,215,301,302,303,304,305,312,
%U 313,314,315,323,324,325,401,402,403,404,405,412,413,414,415,423,424,425,434,435,501,502,503,504,505,512,513,514
%N Numbers with digits in {0,...,5} such that every other digit is strictly less than its neighbors.
%C Terms of A032861 written in base 6.
%F a(n) = A007092(A032861(n)).
%o (PARI) A(Nmax=100, K=5, 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)))}
%Y Cf. A306105 .. A306111 and A297147: analog for bases 3..9 and 10.
%Y Cf. A032862 and A032858 .. A032865 for other bases 3..10.
%K nonn,base
%O 1,3
%A _M. F. Hasler_, Oct 05 2018
|
