A349224 Number k such that A033634(k) = A033634(k+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

Amiram Eldar, Table of n, a(n) for n = 1..1000

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

Adjacent sequences: A349221 A349222 A349223 * A349225 A349226 A349227

Keyword

nonn

Author

Amiram Eldar, Nov 11 2021

Status

approved