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 A349224 #8 Nov 12 2021 04:35:56 %S A349224 11,14,957,1334,1485,1634,2685,4136,9347,13915,16260,16499,20145, %T A349224 29903,33998,37236,42251,42818,55308,56419,74918,77748,79826,79833, %U A349224 84134,86343,109864,111506,122073,138237,142116,147454,166934,168739,178356,184260,187863,194028 %N A349224 Number k such that A033634(k) = A033634(k+1). %H A349224 Amiram Eldar, <a href="/A349224/b349224.txt">Table of n, a(n) for n = 1..1000</a> %e A349224 11 is a term since A033634(11) = A033634(12) = 12. %t A349224 f[e_] := If[OddQ[e], e+2, e+1]; fun[p_, e_] := 1 + (p^f[e] - p)/(p^2 - 1); s[1] = 1; s[n_] := Times @@ (fun @@@ FactorInteger[n]); Select[Range[2*10^5], s[#] == s[#+1] &] %Y A349224 Cf. A033634. %Y A349224 Similar sequences: A002961, A064115, A064125, A293183, A306985. %K A349224 nonn %O A349224 1,1 %A A349224 _Amiram Eldar_, Nov 11 2021