A355908 A335905(n) + A335906(n).
0, 2, -2, 4, -6, 10, -14, 22, -32, 50, -74, 112, -168, 254, -380, 572, -858, 1288, -1932, 2900
Offset: 0
Links
- Don Knuth, Ambidextrous Numbers, Preprint, September 2022.
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
From 9 one can reach with the transitions x -> A171462(x) (leftward arrow) and x -> A335876(x) (rightward arrow) the following six numbers, when one doesn't expand any power of 2 further: 9 / \ 6 12 / \ / \ 4 8 16 thus a(9) = 6. From 10 one can reach with the transitions x -> A171462(x) and x -> A335876(x) the following for numbers, when one doesn't expand any power of 2 further: 10 |\ | \ | 12 | /\ |/ \ 8 16 thus a(10) = 4. From 15 one can reach with the transitions x -> A171462(x) and x -> A335876(x) the following seven numbers, when one doesn't expand any power of 2 further: 15 / \ / \ 12<----18 / \ \ / \ \ 8 16<----24 \ \ 32 thus a(15) = 7.
A171462(n) = if(1==n,0,(n-(n/vecmax(factor(n)[, 1])))); A335876(n) = if(1==n,2,(n+(n/vecmax(factor(n)[, 1])))); A209229(n) = (n && !bitand(n,n-1)); A335906(n) = { my(xs=Set([n]),allxs=xs,newxs,a,b,u); for(k=1,oo, newxs=Set([]); if(!#xs, return(#allxs)); allxs = setunion(allxs,xs); for(i=1,#xs,u = xs[i]; if(!A209229(u), newxs = setunion([A171462(u)],newxs); newxs = setunion([A335876(u)],newxs))); xs = newxs); };
Comments