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 A122262 #10 May 14 2025 04:27:45
%S A122262 1,2,3,4,5,6,7,8,9,10,10,11,12,13,14,15,16,17,18,19,20,20,20,21,22,23,
%T A122262 24,25,25,26,26,27,27,28,29,30,31,32,33,34,34,35,35,35,36,36,36,37,38,
%U A122262 39,40,41,41,42,42,43,44,44,44,45,45,45,46,47,48,48,48,49,49,50,50,51
%N A122262 Number of numbers having only factors that are Pierpont primes.
%H A122262 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PierpontPrime.html">Pierpont Prime</a>.
%t A122262 smooth3Q[n_] := Times @@ ({2, 3}^IntegerExponent[n, {2, 3}]) == n; s[n_] := Boole@ AllTrue[FactorInteger[n][[;;, 1]]-1, smooth3Q]; s[1] = 1; Accumulate[Table[s[n], {n, 1, 100}]] (* _Amiram Eldar_, May 14 2025 *)
%Y A122262 Partial sums of A122261.
%Y A122262 Cf. A005109.
%K A122262 nonn
%O A122262 1,2
%A A122262 _Reinhard Zumkeller_, Aug 29 2006