OFFSET
1,2
COMMENTS
The number of consecutive terms with the same parity: 1, 1, 7, 5, 28, 5, 16, 13, 47, 4, 70, 6, 56, 4, 32, 11, 17, 21, 22, 11, 2, 20, 67, 13, 22, 36, 8, 9,101, 47, 24, 4, 1, 7, 2, 79, 20, 71, 47, 92, 36, 57, 90, 38, 167, 215, 31, 17, 62, ... i.e.; 1 odd term, 1 even term, 7 odd terms, 5 even terms, 28 odd terms, 5 even terms, ...
LINKS
Robert Israel, Table of n, a(n) for n = 1..3000
MAPLE
A[1]:= 1:
for n from 2 to 100 do A[n]:= A[n-1] + numtheory:-order(2, A[n-1]/2^padic:-ordp(A[n-1], 2)) od:
seq(A[n], n=1..100); # Robert Israel, Apr 10 2019
PROG
(PARI) odd(n) = n >> valuation(n, 2);
lista(nn) = {a = 1; print1(a, ", "); for (n=2, nn, a = a + znorder(Mod(2, odd(a))); print1(a, ", "); ); } \\ Michel Marcus, Mar 23 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Thomas Ordowski, Mar 12 2019
EXTENSIONS
More terms from Amiram Eldar, Mar 12 2019
STATUS
approved