OFFSET
1,1
COMMENTS
A090431(a(n)) < 0.
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
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Dec 01 2003
STATUS
approved