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 A378494 #13 Jul 09 2025 05:07:34 %S A378494 8,12,18,20,27,28,32,44,45,48,50,52,63,68,75,76,80,92,98,99,112,116, %T A378494 117,120,124,125,147,148,153,162,164,168,171,172,175,176,188,207,208, %U A378494 212,236,242,243,244,245,261,264,268,270,272,275,279,280,284,292,304,312,316 %N A378494 Intersection of A000379 and A026424. %C A378494 First differs from A187042 at n = 24, where a(24) = 120 is missing from A187042. %H A378494 Paolo Xausa, <a href="/A378494/b378494.txt">Table of n, a(n) for n = 1..10000</a> %t A378494 A000379Q[k_] := k == 1 || EvenQ[Count[IntegerDigits[FactorInteger[k][[All, 2]], 2], 1, 2]]; %t A378494 A026424Q[k_] := OddQ[PrimeOmega[k]]; %t A378494 Select[Range[500], A000379Q[#] && A026424Q[#] &] %Y A378494 Cf. A000379, A026424, A187042, A378489. %K A378494 nonn %O A378494 1,1 %A A378494 _Paolo Xausa_, Nov 28 2024, following a suggestion from _Peter Munn_