OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
a = {}; Do[If[PrimeQ[24n + 7], [null], AppendTo[a, 24n + 7]], {n, 0, 1000}]; a
Select[24 Range[100] + 7, ! PrimeQ@# &] (* Vincenzo Librandi, Mar 22 2014 *)
PROG
(Magma) [a: n in [0..100] | not IsPrime(a) where a is 24*n+7]; // Vincenzo Librandi, Mar 22 2014
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Artur Jasinski, Nov 25 2007
STATUS
approved