login
This site is supported by donations to The OEIS Foundation.

 

Logo

Invitation: celebrating 50 years of OEIS, 250000 sequences, and Sloane's 75th, there will be a conference at DIMACS, Rutgers, Oct 9-10 2014.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A094748 Successive differences arising in A094747. 2
2, 6, 4, 10, 12, 8, 14, 18, 20, 22, 16, 24, 28, 26, 30, 36, 32, 42, 48, 34, 44, 40, 54, 60, 66, 70, 50, 52, 56, 38, 46, 58, 68, 72, 76, 78, 64, 74, 80, 62, 82, 84, 86, 88, 92, 104, 90, 96, 98, 108, 102, 114, 100, 94, 116, 124, 106, 118, 110, 112, 120, 122, 126, 132, 142, 130 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Table of n, a(n) for n=1..66.

FORMULA

Absolute[A094747(n+1)-A094747(n)]

MAPLE

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

CROSSREFS

Cf. A094747.

Sequence in context: A066678 A113571 A119018 * A245579 A245788 A065879

Adjacent sequences:  A094745 A094746 A094747 * A094749 A094750 A094751

KEYWORD

nonn

AUTHOR

Amarnath Murthy, May 24 2004

EXTENSIONS

More terms from R. J. Mathar, Jul 29 2007

STATUS

approved

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

Content is available under The OEIS End-User License Agreement .

Last modified September 21 11:48 EDT 2014. Contains 247025 sequences.