A364469 Numbers k whose digital sum is greater than the number of primes up to k (inclusive).

1, 2, 3, 4, 5, 6, 7, 8, 9, 16, 17, 18, 19, 28, 29

Offset

1,2

Links

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

Formula

{ k : A007953(k) > A000720(k) }.

Example

There are 10 primes that do not exceed 29, and the sum of digits of 29 is 11. Thus 29 is in this sequence.
There are 9 primes that do not exceed 27, and the sum of digits of 27 is also 9. Thus 27 is not in this sequence.

Mathematica

Select[Range[2000], Total[IntegerDigits[#]] > PrimePi[#] &]

Crossrefs

Cf. A000720, A007953.

Sequence in context: A102489 A004838 A032998 * A032344 A032871 A023764

Adjacent sequences: A364466 A364467 A364468 * A364470 A364471 A364472

Keyword

nonn,base,full,fini

Author

Tanya Khovanova, Jul 29 2023

Status

approved