|
%I #55 Sep 08 2022 08:44:53
%S 2,3,5,7,2,4,8,1,5,2,4,1,5,7,2,8,5,7,4,8,1,7,2,8,7,2,4,8,1,5,1,5,2,4,
%T 5,7,4,1,5,2,8,1,2,4,8,1,4,7,2,4,8,5,7,8,5,2,8,1,7,2,4,5,1,5,7,2,7,4,
%U 5,7,2,8,7,4,1,5,2,1,5,4,5,7,8,1,7,2,8
%N Iterated sum-of-digits of n-th prime; or digital root of n-th prime; or n-th prime modulo 9.
%C Integers with iterated sum-of-digits 3, 6 or 9 are divisible by 3, so 3 is the only prime with iterated sum-of-digits 3 and there are no primes with iterated sum-of-digits 6 or 9.
%C The remaining values are very evenly distributed: these are the number of appearances in the first 1007933 primes: 1:167878; 2:168079; 4:167984; 5:168027; 7:167906; 8:168058. - _Carmine Suriano_, Jun 22 2015
%C Asymptotically, the ratios (number of primes <= n and == i mod 9)/(number of primes <= n and == j mod 9) go to 1 as n -> infinity for all i,j in {1,2,4,5,7,8} by the Prime Number Theorem for Arithmetic Progressions. For more detailed analysis, see the Granville-Martin link. - _Robert Israel_, Jul 08 2015
%H Nathaniel Johnston, <a href="/A038194/b038194.txt">Table of n, a(n) for n = 1..10000</a>
%H A. Granville and G. Martin, <a href="http://www.arXiv.org/abs/math.NT/0408319">Prime number races</a>, arXiv:math/0408319 [math.NT], 2004
%F a(n) = A010888(A000040(n)).
%e Prime(5) = 11, 1 + 1 = 2 hence a(5) = 2.
%e a(297)=7 because the 297th prime is 1951 and 1+9+5+1 = 16 -> 1+6 = 7.
%p A038194 := proc(n) return ithprime(n) mod 9: end: seq(A038194(n), n=1..100); # _Nathaniel Johnston_, May 04 2011
%t Table[Mod[Prime[n], 9], {n, 200}]
%t Mod[Prime[Range[100]], 9] (* _Vincenzo Librandi_, May 06 2014 *)
%o (PARI) forprime(p=2,600,print1(p%9,","))
%o (Magma) [p mod 9: p in PrimesUpTo(500)]; // _Vincenzo Librandi_, May 06 2014
%o (Haskell)
%o a038194 = flip mod 9 . a000040 -- _Reinhard Zumkeller_, Dec 10 2014
%Y Cf. A007605, A010888, A061237 - A061242, A139413, A153110.
%K nonn,base,easy
%O 1,1
%A Den Roussel (DenRoussel(AT)webtv.net) and _Clark Kimberling_
%E Edited by _Klaus Brockhaus_, Feb 16 2002
%E Edited at the suggestion of _R. J. Mathar_ by _N. J. A. Sloane_, May 14 2008
|
