OFFSET
1,1
COMMENTS
Primes ending in 3 with (SOD-1)/3 integer where SOD is sum of digits. - Ki Punches
Subsequence of primes of A082369. - Michel Marcus, Jan 23 2016
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
C. K. Caldwell, The Prime Pages.
FORMULA
a(n) = A158746(n)*30 + 13. - Ray Chandler, Apr 07 2009
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
Omar E. Pol, Aug 15 2007
EXTENSIONS
Extended by Ray Chandler, Apr 07 2009
STATUS
approved