login
A061237
Prime numbers == 1 (mod 9).
26
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
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
KEYWORD
nonn,easy
AUTHOR
Amarnath Murthy, Apr 23 2001
EXTENSIONS
More terms from Robert G. Wilson v, May 10 2001
STATUS
approved