A367481 Primitive practical numbers of the form 2 * 3^i * prime(k).
30, 42, 66, 78, 306, 342, 414, 522, 558, 666, 2214, 2322, 2538, 2862, 3186, 3294, 3618, 3834, 3942, 4266, 4482, 4806, 5238, 5454, 5562, 5778, 5886, 6102, 20574, 21222, 22194, 22518, 24138, 24462, 25434, 26406, 27054, 28026, 28998, 29322, 30942, 31266, 31914
Offset: 1
Keywords
Programs
-
Mathematica
a[n_]:=2*3^(Floor[Log[2*Prime[n+2]]/Log[3]]-1)*Prime[n+2]; Array[a,43] (* Stefano Spezia, Nov 19 2023 *)
Formula
a(n) = 2 * 3^(floor(log_3(2*prime(n+2)))-1) * prime(n+2).
Comments