|
%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
|
