|
|
A097962
|
|
Slowest increasing sequence where the digits, taken one by one, show the pattern even/odd/even/odd/even...
|
|
5
|
|
|
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 21, 23, 25, 27, 29, 41, 43, 45, 47, 49, 61, 63, 65, 67, 69, 81, 83, 85, 87, 89, 210, 301, 410, 501, 610, 701, 810, 901, 2101, 2103, 2105, 2107, 2109, 2121, 2123, 2125, 2127, 2129, 2141, 2143, 2145, 2147, 2149, 2161, 2163, 2165, 2167, 2169
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
Distinct from A098951, which is not required to be increasing. The first 31 terms are identical, but here a(30) = 210 must be followed by a(31) = 301, while there 210 is followed by 10. - M. F. Hasler, Mar 23 2019
|
|
LINKS
|
|
|
PROG
|
(PARI) nxt(n, d=digits(n))={if(!bittest(#d, 0), forstep(i=#d, 1, -1, 10>(d[i]+=2)&& return(fromdigits(d)); d[i]-=10); d||return(1); d[#d]=if(d[1]%=2, 10, 21); fromdigits(Vecrev(d)), 10>d[1]+=1, d[1]=d[1]*10+d[#d]; fromdigits(d)\10, d[1]=21; fromdigits(d))}
vector(50, i, t=if(i>1, nxt(t), 0)) \\ M. F. Hasler, Mar 23 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|