login
A090433
Primes p(k) having a smaller sum of digits than k.
4
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
MATHEMATICA
Select[Prime[Range[200]], Total[IntegerDigits[#]]<Total[IntegerDigits[ PrimePi[ #]]]&] (* Harvey P. Dale, Mar 05 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Dec 01 2003
STATUS
approved