%I #13 Nov 10 2015 04:42:38
%S 2,3,5,7,17,19,29,31,37,41,43,47,53,59,67,71,73,79,83,89,97,113,127,
%T 137,139,149,157,167,173,179,181,191,193,197,199,229,233,239,257,269,
%U 277,281,283,293,307,349,353,359,367,373,379,383,389,397,409,419,439
%N Primes prime(k) having a greater sum of digits than does k.
%C A090431(a(n)) < 0.
%t Prime[#]&/@Select[Range[100],Total[IntegerDigits[Prime[#]]]-Total[IntegerDigits[#]]>0&] (* _Michel Lagneau_, Nov 07 2015 *)
%o (PARI) isok(n) = sumdigits(prime(n)) > sumdigits(n); \\ _Michel Marcus_, Nov 07 2015
%Y Cf. A007605, A007953, A033548, A090431, A090433, A090456.
%K nonn,base
%O 1,1
%A _Reinhard Zumkeller_, Dec 01 2003
|