1,3

Table of n, a(n) for n=1..66.

a = {}; Do[If[PrimeQ[24 n + 13], AppendTo[a, n]], {n, 0, 200}]; a

Sequence in context: A278039 A076521 A206910 * A341291 A307830 A157202

Adjacent sequences: A139526 A139527 A139528 * A139530 A139531 A139532

nonn

Artur Jasinski, Apr 25 2008

approved