login
Absolute difference of final digits of consecutive primes.
4

%I #16 Mar 27 2024 09:00:16

%S 1,2,2,6,2,4,2,6,6,8,6,6,2,4,4,6,8,6,6,2,6,6,6,2,6,2,4,2,6,4,6,6,2,0,

%T 8,6,4,4,4,6,8,0,2,4,2,8,2,4,2,6,6,8,0,6,4,6,8,6,6,2,0,4,6,2,4,6,6,0,

%U 2,6,6,2,4,6,6,6,2,6,8,0,8,0,2,6,6,6,2,6,2,4,2,2,6,8,6,6,8,2,2,6,0,4,6,8,6

%N Absolute difference of final digits of consecutive primes.

%H Jason Yuen, <a href="/A129750/b129750.txt">Table of n, a(n) for n = 1..10000</a>

%t f[n_] := Abs[Mod[Prime[n + 1], 10] - Mod[Prime[n], 10]]; Array[f, 105] (* _Ray Chandler_, Jun 12 2007 *)

%Y Cf. A007652.

%K base,easy,nonn

%O 1,2

%A _Giovanni Teofilatto_, Jun 02 2007

%E Corrected and extended by _Ray Chandler_, Jun 12 2007