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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A140350 This sequence splices 36x^2 - 810x + 2753 and the first of its transforms 9x^2 - 423x + 3167 into a prime chain 91 terms long. 0
3167, 2753, 2753, 1979, 2357, 1277, 1979, 647, 1619, 89, 1277, 397 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

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

PROG

(Pascal) procedure Ndegrees; var a : array[0..16] of extended; aa, ct, bb, cc: longint; n, nh, i, j : integer; ab1, ab2 : extended; begin for i := 0 to 16 do a[i] := 0; N := 7; a[0] := 3167{ FIRST TERM OF PRIME CHAIN}; nh := 1; a[1] := 2753 ; a[2] := 2753 ; a[3] := 1979 ; a[4] := 2357 ; a[5] := 1277 ; a[6] := 1979 ; a[7] := 647 ; a[8] := 1619 ; repeat for i := N downto nh do BEGIN a[i] := a[i] - a[i-1] ; IF NH = 5 THEN A[I] := ABS(A[I]); {******} END; nh := nh + 1; until nh = n + 2; ct := 0; repeat ct := ct + 1; ab1 := a[n] + a[n-1]; for i := N-1 downto 1 do begin IF I = 5 THEN IF ODD(ct) THEN A[i] := -A[i]; {******} ab2 := a[i] + a[i-1] ; a[i] := ab1; ab1 := ab2; end; WRITELN(AB1); READLN; until 1<0; END;

CROSSREFS

Cf. A140755.

Sequence in context: A252636 A324678 A068266 * A309024 A217247 A020420

Adjacent sequences:  A140347 A140348 A140349 * A140351 A140352 A140353

KEYWORD

nonn,uned

AUTHOR

Aldrich Stevens (aldrichstevens(AT)msn.com), May 29 2008

STATUS

approved

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 October 21 07:05 EDT 2019. Contains 328292 sequences. (Running on oeis4.)