A348514 Numbers k for which A003961(k) = 2k+1, where A003961 shifts the prime factorization of n one step towards larger primes.
4, 10, 57, 1054, 2626, 68727, 12371554, 1673018314, 10475647197, 11154517557, 27594844918, 630178495917, 7239182861878
Offset: 1
Crossrefs
Programs
-
Mathematica
f[p_, e_] := NextPrime[p]^e; s[1] = 1; s[n_] := Times @@ f @@@ FactorInteger[n]; Select[Range[10^5], s[#] == 2*# + 1 &] (* Amiram Eldar, Oct 30 2021 *)
Extensions
a(9)-a(11) verified by Amiram Eldar, Nov 01 2021
a(12)-a(13) verified by Martin Ehrenstein, Nov 08 2021
Comments