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.
%I A247717 #6 Sep 25 2014 21:46:23 %S A247717 1,5,18,58,99,153,176,228,238,240,282,341,345,421,475,585,629,712,739, %T A247717 779,802,815,974,995,1078,1088,1237,1257,1262,1290,1346,1398,1424, %U A247717 1459,1673,1694,1724,1731,1802,1811,1916,1928,1988,2170,2222,2260,2272,2275,2317,2365,2397,2410 %N A247717 Numbers n such that A033493(n)/A008908(n) is an integer. %C A247717 Equivalently, these are also numbers n such that the average of the numbers in the Collatz (3x+1) iteration of n is an integer. %o A247717 (PARI) %o A247717 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) %o A247717 n=1;while(n<10^4,if(floor(Tavg(n))==Tavg(n),print1(n,", "));n++) %Y A247717 Cf. A008908, A033493. %K A247717 nonn %O A247717 1,2 %A A247717 _Derek Orr_, Sep 22 2014