A114217 Numbers n such that A114216(n)=1.
1, 2, 5, 12, 14, 20, 75, 33900, 78493252
Offset: 1
Keywords
Extensions
a(9) from Donovan Johnson, May 13 2010
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.
a(2) = 1 + 2 = 3; a(3) = (3 + 3)/2 = 3; a(4) = 3 + 4 = 7; a(5) = (7 + 5)/4 = 3; a(6) = 3 + 6 = 9; a(7) = (9 + 7)/16 = 1; ...
a[1]=1; a[n_] := a[n] = #/2^IntegerExponent[#, 2] &@ (n + a[n-1]); Array[a, 70] (* Giovanni Resta, Jun 25 2020 *)
{a(n)=if(n==1, 1, (a(n-1)+n)/2^valuation(a(n-1)+n,2))}
{A=vector(1024); a(n)=A[n]=if(n==1, 1, (A[n-1]+n)/2^valuation(A[n-1]+n,2))} for(n=1,#A,print1(a(n),", "))
Comments