A349283 Numbers k such that A051378(k) = A051378(k+1).
14, 206, 957, 1334, 1364, 1485, 1634, 2685, 2974, 4136, 4364, 14841, 20145, 24957, 33998, 36566, 42818, 61183, 64672, 74918, 79826, 79833, 84134, 86343, 92685, 104192, 109864, 111506, 122073, 138237, 147454, 159711, 162602, 166934, 187863, 190773, 193893, 201597
Offset: 1
Keywords
Examples
14 is a term since A051378(14) = A051378(15) = 24.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..500
Programs
-
Mathematica
s[1] = 1; s[n_] := Times @@ (1 + Sum[First[#]^d, {d, Divisors[Last[#]]}] &) /@ FactorInteger[n]; Select[Range[2*10^5], s[#] == s[#+1] &]
Comments