A090432 Primes prime(k) having a greater sum of digits than does k.

2, 3, 5, 7, 17, 19, 29, 31, 37, 41, 43, 47, 53, 59, 67, 71, 73, 79, 83, 89, 97, 113, 127, 137, 139, 149, 157, 167, 173, 179, 181, 191, 193, 197, 199, 229, 233, 239, 257, 269, 277, 281, 283, 293, 307, 349, 353, 359, 367, 373, 379, 383, 389, 397, 409, 419, 439

Offset: 1

Author

Reinhard Zumkeller, Dec 01 2003

Keywords

• nonn
• base

Comments

A090431(a(n)) < 0.

Crossrefs

Cf. A007605, A007953, A033548, A090431, A090433, A090456.

Programs

Mathematica

Prime[#]&/@Select[Range[100],Total[IntegerDigits[Prime[#]]]-Total[IntegerDigits[#]]>0&] (* Michel Lagneau, Nov 07 2015 *)

PARI

isok(n) = sumdigits(prime(n)) > sumdigits(n); \\ Michel Marcus, Nov 07 2015