|
%I #5 Mar 30 2012 17:34:13
%S 1,1,6,8,18,24,62,94,332,556,2538,4540,25214,48076,315026
%N a[n] =Prime[a[n-2]]+Abs[Prime[n]-a[n-2]]
%t digits=15 P[n_Integer?Positive] := P[n] =Prime[P[n-2]]+Abs[Prime[n]-P[n-2]] P[0]=P[1] =P[2]= 1 a1=Table[Floor[P[n]], {n, 1, digits}]
%Y Cf. A005229.
%K nonn
%O 1,3
%A _Roger L. Bagula_, Sep 24 2003
|
