A090433 Primes p(k) having a smaller sum of digits than k.

11, 13, 23, 61, 101, 103, 107, 109, 151, 163, 211, 223, 227, 241, 251, 271, 311, 313, 317, 331, 337, 347, 401, 421, 431, 433, 443, 461, 503, 509, 521, 523, 701, 911, 1009, 1013, 1021, 1031, 1033, 1051, 1061, 1063, 1103, 1109, 1117, 1123, 1129, 1151

Offset: 1

Author

Reinhard Zumkeller, Dec 01 2003

Keywords

• nonn
• base

Comments

A090431(a(n)) > 0.

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A033548, A090432, A007953, A007605, A090457.

Programs

Mathematica

Select[Prime[Range[200]],Total[IntegerDigits[#]]Harvey P. Dale, Mar 05 2017 *)