A265100 a(n) = 9*A005836(n) + 5, n >= 1.
5, 14, 32, 41, 86, 95, 113, 122, 248, 257, 275, 284, 329, 338, 356, 365, 734, 743, 761, 770, 815, 824, 842, 851, 977, 986, 1004, 1013, 1058, 1067, 1085, 1094, 2192, 2201, 2219, 2228, 2273, 2282, 2300, 2309, 2435, 2444, 2462, 2471, 2516, 2525
Offset: 1
Keywords
Links
- Robert Israel, A000108(n) == 1 (mod 6), Sequence Fans Mailing List, December 2015.
- Vladimir Reshetnikov, A000108(n) == 1 (mod 6), Sequence Fans Mailing List, November 2015.
- Emmanuel Vantieghem, A000108(n) == 1 (mod 6), Sequence Fans Mailing List, November 2015.
- Emmanuel Vantieghem, A000108(n) == 1 (mod 6), Sequence Fans Mailing List, November 2015.
Programs
-
Mathematica
a005836[1] := 0; a005836[n_] := If[OddQ[n], 3*a005836[Floor[(n + 1)/2]], a005836[n - 1] + 1]; a265100[n_] := 9*a005836[n] + 5; Table[a265100[n], {n, 46}] 5 + 9 Join[{0}, Accumulate[Table[(3^IntegerExponent[n, 2] + 1)/2, {n, 57}]]] (* Vincenzo Librandi, Dec 03 2015 *)
Comments