OFFSET
1,2
COMMENTS
Equivalently, these are also numbers n such that the average of the numbers in the Collatz (3x+1) iteration of n is an integer.
PROG
(PARI)
Tavg(n)=c=0; s=n; while(n!=1, if(n==Mod(0, 2), n=n/2; c++; s+=n); if(n==Mod(1, 2)&&n!=1, n=3*n+1; s+=n; c++)); s/(c+1)
n=1; while(n<10^4, if(floor(Tavg(n))==Tavg(n), print1(n, ", ")); n++)
CROSSREFS
KEYWORD
nonn
AUTHOR
Derek Orr, Sep 22 2014
STATUS
approved