A061237 Prime numbers == 1 (mod 9).

19, 37, 73, 109, 127, 163, 181, 199, 271, 307, 379, 397, 433, 487, 523, 541, 577, 613, 631, 739, 757, 811, 829, 883, 919, 937, 991, 1009, 1063, 1117, 1153, 1171, 1279, 1297, 1423, 1459, 1531, 1549, 1567, 1621, 1657, 1693, 1747, 1783, 1801, 1873, 1999

Offset

1,1

Comments

A010888(a(n)) = 1. - Reinhard Zumkeller, Feb 25 2005

Links

Harry J. Smith, Table of n, a(n) for n = 1..2000

Mathematica

Select[ Range[ 2000 ], PrimeQ[ # ] && Mod[ #, 9 ] == 1 & ]
Select[Prime[Range[350]], Mod[#, 9]==1&] (* Harvey P. Dale, Jan 06 2013 *)

Prog

(PARI) { n=0; forprime (p=2, 128467, if (p%9 == 1, write("b061237.txt", n++, " ", p)) ) } \\ Harry J. Smith, Jul 19 2009
[ p: p in PrimesUpTo(2000) | p mod 9 in {1} ]; \\ Vincenzo Librandi, Dec 25 2010

Crossrefs

Cf. A061238-A061242.

Sequence in context: A043924 A301617 A211821 * A158293 A107579 A245381

Adjacent sequences: A061234 A061235 A061236 * A061238 A061239 A061240

Keyword

nonn,easy

Author

Amarnath Murthy, Apr 23 2001

Extensions

More terms from Robert G. Wilson v, May 10 2001

Status

approved