|
|
A132233
|
|
Primes congruent to 13 (mod 30).
|
|
10
|
|
|
13, 43, 73, 103, 163, 193, 223, 283, 313, 373, 433, 463, 523, 613, 643, 673, 733, 823, 853, 883, 1033, 1063, 1093, 1123, 1153, 1213, 1303, 1423, 1453, 1483, 1543, 1663, 1693, 1723, 1753, 1783, 1873, 1933, 1993, 2053, 2083, 2113, 2143, 2203, 2293, 2383
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Primes ending in 3 with (SOD-1)/3 integer where SOD is sum of digits. - Ki Punches
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
select(isprime, [seq(30*i+13, i=0..1000)]); # Robert Israel, Jan 24 2016
|
|
MATHEMATICA
|
Select[Prime[Range[1000]], MemberQ[{13}, Mod[#, 30]]&] (* Vincenzo Librandi, Aug 14 2012 *)
|
|
PROG
|
(Magma) [p: p in PrimesUpTo(3000) | p mod 30 eq 13 ]; // Vincenzo Librandi, Aug 14 2012
(PARI) lista(nn) = forprime(p=2, nn, if(p % 30 == 13, print1(p, ", "))); \\ Altug Alkan, Jan 23 2016
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|