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,1

Comments

A090431(a(n)) > 0.

Links

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

Mathematica

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

Crossrefs

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

Sequence in context: A084952 A277048 A275598 * A374059 A022325 A295340

Adjacent sequences: A090430 A090431 A090432 * A090434 A090435 A090436

Keyword

nonn,base

Author

Reinhard Zumkeller, Dec 01 2003

Status

approved