A152680 a(n) = 4*A005098(n) = A002144(n) - 1.
4, 12, 16, 28, 36, 40, 52, 60, 72, 88, 96, 100, 108, 112, 136, 148, 156, 172, 180, 192, 196, 228, 232, 240, 256, 268, 276, 280, 292, 312, 316, 336, 348, 352, 372, 388, 396, 400, 408, 420, 432, 448, 456, 460, 508, 520, 540, 556, 568, 576, 592, 600, 612, 616
Offset: 1
Keywords
Programs
-
Mathematica
aa = {}; Do[If[Mod[Prime[n], 4] == 1, AppendTo[aa, Prime[n] - 1]], {n, 1, 200}]; aa
Comments