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 A278783 #23 Nov 19 2024 23:46:02 %S A278783 66,149,298,435,450,518,615,703,751,764,765,855,982,1389,1398,1411, %T A278783 1555,1896,2113,2124,2286,2400,2575,2618,2816,2890,2989,3032,3113, %U A278783 3202,3351,3430,3454,3485,3509,3562,3652,3786,3994,4061,4202,4690,5042,5055,5067 %N A278783 Numbers m such that A000041(m) is of the form 2^6 * k for odd k. %C A278783 Also numbers m such that A000041(m) has six times as many even divisors as odd divisors. %H A278783 Colin Barker, <a href="/A278783/b278783.txt">Table of n, a(n) for n = 1..150</a> %F A278783 A000041(a(n)) = A278200(n). %t A278783 Select[Range[5100], IntegerExponent[PartitionsP[#], 2] == 6 &] (* _Amiram Eldar_, May 25 2024 *) %o A278783 (PARI) isok(n) = valuation(numbpart(n), 2)==6; %o A278783 select(n->isok(n), vector(6000, n, n)) %Y A278783 Cf. A000041, A278200, A278779, A278780, A278781, A278782, A278784. %Y A278783 Positions of 6's in A278478. %K A278783 nonn %O A278783 1,1 %A A278783 _Colin Barker_, Nov 28 2016