A179656 - OEIS

%I #11 Jul 14 2015 01:10:31

%S 0,0,0,0,1,1,1,0,3,1,3,0,1,1,1,5,4,5,3,7,0,2,1,1,6,1,3,3,0,3,0,1,1,3,

%T 4,4,1,0,2,1,3,0,1,1,5,0,3,6,1,1,1,4,3,3,2,1,5,0,4,1,3,3,0,1,5,1,2,1,

%U 2,6,1,7,3,1,0,3,1,0,1,1,4,1,7,0,5,1,1,2,1,3,3,1,0,1,3,7,4,1,0,0,1,5,3,1,3

%N prime(n) mod (digital root(prime(n))).

%C For the first one million primes, the distribution of the values (0..8) is {166572, 361136, 69399, 194537, 69405, 69460, 27798, 41693, 0} . - _Robert G. Wilson v_, Aug 02 2010

%e For n=9 : prime(9)=23, and digital root of 23 = 2+3 = 5, so 23 mod 5 = 3.

%e For n=16 : prime(16)=53, and digital root of 53 = 5+3 = 8, so 53 mod 8 = 5.

%t f[n_] := Block[{p = Prime@n}, Mod[p, Mod[p, 9]]]; Array[f, 111] (* _Robert G. Wilson v_, Aug 02 2010 *)

%Y Cf. A000040, A038194.

%K nonn,base

%O 1,9

%A _Jason G. Wurtzel_, Jul 23 2010

%E More terms from _Robert G. Wilson v_, Aug 02 2010