login
A227825
Primes whose digits add to 10 and which have a 3 in the tens place.
0
37, 433, 631, 1531, 3331, 4231, 10333, 10531, 13033, 15031, 20233, 20431, 23131, 30133, 31033, 31231, 40231, 41131, 50131, 51031, 100333, 103231, 105031, 110233, 110431, 113131, 114031, 120331, 122131, 123031, 202231, 211231, 212131, 231031, 300331, 310231, 312031, 321031, 400033, 411031, 501031, 510031, 1000333
OFFSET
1,1
COMMENTS
Is this sequence infinite?
REFERENCES
Peter Luschny, Posting to Sequence Fans Mailing List, Jul 25, 2013.
MATHEMATICA
fQ[n_]:=Module[{idn=IntegerDigits[n]}, idn[[-2]]==3&&Total[idn]==10]; Select[Prime[Range[5, 80000]], fQ] (* Harvey P. Dale, Aug 15 2014 *)
CROSSREFS
Sequence in context: A232259 A232046 A218376 * A201609 A140847 A081764
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Jul 31 2013
STATUS
approved