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 A278782 #16 May 25 2024 09:12:08 %S A278782 70,179,262,278,419,561,682,698,767,879,1147,1238,1273,1317,1362,1364, %T A278782 1378,1450,1478,1499,1509,1548,1590,1638,1668,1711,1752,1781,1838, %U A278782 1949,2170,2187,2300,2317,2334,2382,2408,2447,2463,2499,2551,2669,2695,2788,2926 %N A278782 Numbers m such that A000041(m) is of the form 2^5 * k for odd k. %C A278782 Numbers m such that A278478(m) = 5. %C A278782 Also numbers m such that A000041(m) has five times as many even divisors as odd divisors. %H A278782 Colin Barker, <a href="/A278782/b278782.txt">Table of n, a(n) for n = 1..300</a> %F A278782 A000041(a(n)) = A278199(n). %t A278782 Select[Range[500], IntegerExponent[PartitionsP[#], 2] == 5 &] (* _Amiram Eldar_, May 25 2024 *) %o A278782 (PARI) isok(n) = valuation(numbpart(n), 2)==5; %o A278782 select(n->isok(n), vector(3000, n, n)) %Y A278782 Cf. A000041, A278199, A278779, A278780, A278781, A278783, A278784. %Y A278782 Positions of 5's in A278478. %K A278782 nonn %O A278782 1,1 %A A278782 _Colin Barker_, Nov 28 2016