|
| |
|
|
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 * A065879 A065880 A090546
Adjacent sequences: A094745 A094746 A094747 * A094749 A094750 A094751
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), May 24 2004
|
|
|
EXTENSIONS
|
More terms from R. J. Mathar, Jul 29 2007
|
|
|
STATUS
|
approved
|
| |
|
|
