%I #7 Aug 08 2015 20:14:46
%S 2,6,4,10,12,8,14,18,20,22,16,24,28,26,30,36,32,42,48,34,44,40,54,60,
%T 66,70,50,52,56,38,46,58,68,72,76,78,64,74,80,62,82,84,86,88,92,104,
%U 90,96,98,108,102,114,100,94,116,124,106,118,110,112,120,122,126,132,142,130
%N Successive differences arising in A094747.
%F Absolute[A094747(n+1)-A094747(n)]
%p A094748 := proc(nmax) local a,diffs,d; a := [3] ; diffs := [] ; while nops(a) < nmax do d := 2 ; while true do if isprime(op(-1,a)-d) and not op(-1,a)-d in a and not d in diffs then a := [op(a),op(-1,a)-d] ; diffs := [op(diffs),d] ; break ; elif isprime(op(-1,a)+d) and not op(-1,a)+d in a and not d in diffs then a := [op(a),op(-1,a)+d] ; diffs := [op(diffs),d] ; break ; else d := d+2 ; fi ; od ; od; RETURN(diffs) ; end: A094748(100) ; # _R. J. Mathar_, Jul 29 2007
%Y Cf. A094747.
%K nonn
%O 1,1
%A _Amarnath Murthy_, May 24 2004
%E More terms from _R. J. Mathar_, Jul 29 2007