login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Primes whose digits add to 10 and which have a 3 in the tens place.
0

%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