Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #8 Mar 12 2014 16:36:43
%S 2,1,1,1,2,2,2,1,2,4,8,2,5,6,6,4,4,2,5,1,4,5,7,8,3,6,2,2,8,2,4,5,13,7,
%T 8,9,13,6,15,9,12,11,8,18,6,22,26,2,24,24,8,14,32,17,31,29,21,23,13,
%U 21,18,6,12,29,28,4,23,39,11,3,21,17,14,24,20,26,20,57,10,20,23,28,40,36,30
%N a(n) = 1+Abs[Prime[A005185[n]]-A005185[Prime[n]]].
%C A "commutator" between the Hofstadter A005185 sequence and the primes.
%t Hofstadter[n_Integer?Positive] := Hofstadter[n] = Hofstadter[n - Hofstadter[n-1]] + Hofstadter[n - Hofstadter[n-2]] Hofstadter[1] = Hofstadter[2] = 1 digits=200 a=Table[1+Abs[Prime[Hofstadter[n]]-Hofstadter[Prime[n]]], {n, 1, digits}]
%Y Cf. A000040, A005185.
%K nonn
%O 1,1
%A _Roger L. Bagula_, Oct 01 2003
%E Edited by _N. J. A. Sloane_, Nov 08 2005