

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: A113571 A119018 A264647 * 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



