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
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Dec 01 2003
STATUS
approved