A244595 Prime numbers whose decimal expansion has the same digit sum as its hexadecimal expansion. Only digits 0-9 are allowed in the hex expansion.

2, 3, 5, 7, 53, 149, 281, 373, 641, 643, 647, 821, 823, 919, 1049, 1091, 1093, 1097, 1319, 1361, 1367, 1409, 1543, 1637, 1811, 1861, 1907, 2081, 2083, 2087, 2089, 2129, 2179, 2309, 2357, 4153, 4241, 4243, 4421, 4423, 5009, 5233, 5237, 5413, 5417, 5507, 5641

Offset

1,1

Links

Andreas Boe, Table of n, a(n) for n = 1..10000

Example

Decimal 1811 = hex 713 -> 1+8+1+1 = 7+1+3.

Mathematica

sds16Q[n_]:=Module[{s10=Total[IntegerDigits[n]], d16 = IntegerDigits[ n, 16]}, Max[ d16]<10&&Total[d16]==s10]; Select[Prime[Range[750]], sds16Q] (* Harvey P. Dale, Jan 22 2021 *)

Crossrefs

Sequence in context: A178237 A118842 A364831 * A244597 A237439 A048402

Adjacent sequences: A244592 A244593 A244594 * A244596 A244597 A244598

Keyword

nonn,base

Author

Andreas Boe, Jul 01 2014

Status

approved