OFFSET
1,2
COMMENTS
Numbers n such that A225784(n) divides n.
The powers of 2 are in the sequence, but there exists a subsequence of non-powers of 2: 80, 160, 208, 320, 416, 640, 832, 1280, 1344,... where the members are of the forms 5*2^p with p>=4, 13*2^p with p>=4, 21*2^p with p>=6, 213*2^p with p>=7, 341*2^p with p>=10,...
EXAMPLE
208 is in the sequence because 208 *(1/208 + 1/104 + 1/52 + 1/26 + 1/13 + 1/40 + 1/20 + 1/10 + 1/5 + 1/16 + 1/8 + 1/4 +1/2 + 1/1) = 512 is an integer.
2688 is in the sequence because A225784(2688) = 896 divides 2688.
MATHEMATICA
collatz[n_]:=NestWhileList[If[EvenQ[#], #/2, 3#+1]&, n, #>1&]; Select[Range[50000], IntegerQ[Total[#/collatz[#]]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, May 19 2013
STATUS
approved