login
A349224
Number k such that A033634(k) = A033634(k+1).
1
11, 14, 957, 1334, 1485, 1634, 2685, 4136, 9347, 13915, 16260, 16499, 20145, 29903, 33998, 37236, 42251, 42818, 55308, 56419, 74918, 77748, 79826, 79833, 84134, 86343, 109864, 111506, 122073, 138237, 142116, 147454, 166934, 168739, 178356, 184260, 187863, 194028
OFFSET
1,1
LINKS
EXAMPLE
11 is a term since A033634(11) = A033634(12) = 12.
MATHEMATICA
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] &]
CROSSREFS
Cf. A033634.
Similar sequences: A002961, A064115, A064125, A293183, A306985.
Sequence in context: A101840 A061087 A063964 * A262721 A174952 A209898
KEYWORD
nonn
AUTHOR
Amiram Eldar, Nov 11 2021
STATUS
approved