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

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.

Links

Table of n, a(n) for n=1..43.

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

Adjacent sequences: A227822 A227823 A227824 * A227826 A227827 A227828

Keyword

nonn,base

Author

N. J. A. Sloane, Jul 31 2013

Status

approved