Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #6 Aug 15 2014 15:55:51
%S 37,433,631,1531,3331,4231,10333,10531,13033,15031,20233,20431,23131,
%T 30133,31033,31231,40231,41131,50131,51031,100333,103231,105031,
%U 110233,110431,113131,114031,120331,122131,123031,202231,211231,212131,231031,300331,310231,312031,321031,400033,411031,501031,510031,1000333
%N Primes whose digits add to 10 and which have a 3 in the tens place.
%C Is this sequence infinite?
%D Peter Luschny, Posting to Sequence Fans Mailing List, Jul 25, 2013.
%t fQ[n_]:=Module[{idn=IntegerDigits[n]},idn[[-2]]==3&&Total[idn]==10]; Select[Prime[Range[5,80000]],fQ] (* _Harvey P. Dale_, Aug 15 2014 *)
%K nonn,base
%O 1,1
%A _N. J. A. Sloane_, Jul 31 2013