login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A094748 Successive differences arising in A094747. 2

%I

%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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 22 06:27 EDT 2021. Contains 345373 sequences. (Running on oeis4.)