A337197 Position of the first occurrence of n in A337196, where A337196(x) is the 3-adic valuation of 1+A000265(sigma(x)).
1, 19, 67, 211, 643, 3667, 5827, 17491, 104971, 628123, 1795063, 2759719, 4251523, 12754579, 83086924
Offset: 0
Programs
-
Mathematica
With[{s = Array[IntegerExponent[1 + #/2^IntegerExponent[#, 2], 3] &@ DivisorSigma[1, #] &, 10^6]}, Array[FirstPosition[s, #][[1]] &, Max[s] + 1, 0]] (* Michael De Vlieger, Feb 22 2021 *)
Comments