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

Comments

A090431(a(n)) < 0.

Links

Table of n, a(n) for n=1..57.

Mathematica

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

Prog

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

Crossrefs

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

Sequence in context: A164060 A356405 A113029 * A301918 A127042 A069802

Adjacent sequences: A090429 A090430 A090431 * A090433 A090434 A090435

Keyword

nonn,base

Author

Reinhard Zumkeller, Dec 01 2003

Status

approved