%I #7 Sep 29 2015 15:37:48
%S 1,4,8,20,80,476,3832,39886,518314,8177364,153154356,3343378690,
%T 83803337868,2381994458224
%N a(n) = prime(a(n-1)) + abs(prime(n)-a(n-1)).
%t digits=10 P[n_Integer?Positive] := P[n] =Prime[P[n-1]]+Abs[Prime[n]-P[n-1]] P[1] = 1 a1=Table[Floor[P[n]], {n, 1, digits}]
%t nxt[{n_,a_}]:={n+1,Prime[a]+Abs[Prime[n+1]-a]}; Transpose[NestList[nxt,{1,1},13]][[2]] (* _Harvey P. Dale_, Sep 29 2015 *)
%Y Cf. A004001.
%K nonn
%O 1,2
%A _Roger L. Bagula_, Sep 24 2003
%E More terms from _Harvey P. Dale_, Sep 29 2015
|