A075524 Nonprimes of form 4*p + (p mod 4), p prime.
10, 15, 21, 69, 95, 117, 165, 175, 213, 245, 287, 319, 335, 357, 405, 415, 437, 453, 511, 527, 549, 559, 597, 629, 655, 671, 693, 725, 767, 789, 799, 847, 895, 917, 933, 959, 965, 1007, 1029, 1055, 1077, 1125, 1135, 1173, 1247, 1253, 1269, 1349, 1391
Offset: 1
Keywords
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Programs
-
Haskell
a075524 n = a075524_list !! (n-1) a075524_list = filter ((== 0) . a010051') a075520_list -- Reinhard Zumkeller, Feb 20 2012
-
Mathematica
Select[4#+Mod[#,4]&/@Prime[Range[100]],!PrimeQ[#]&] (* Harvey P. Dale, Nov 21 2012 *)