|
Search: id:A082739
|
|
| |
|
| 1, 2, 3, 11, 23, 41, 61, 89, 131, 179, 233, 307, 379, 449, 541, 619, 727, 839, 971, 1097, 1237, 1423, 1553, 1709, 1901, 2089, 2293, 2477, 2713, 2953, 3229, 3491, 3719, 4001, 4271, 4583, 4909, 5209, 5521, 5851, 6211, 6563, 6949, 7331, 7717, 8147, 8573, 8969
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MAPLE
|
A082739 := proc(nmax) local T, a, n, r, i, rsum, c, j ; T := [1, 2, 7] ; a := [1, 2] ; n := 3 ; i := 1 ; while nops(a)< nmax do r := [] ; for c from 1 to n-1 do while ithprime(i) in T or ithprime(i) in r do i:= i+1 ; od ; r := [op(r), ithprime(i)] ; i:= i+1 ; od ; j := i+1 ; rsum := sum(op(k, r), k=1..nops(r)) ; while not issqr( rsum+ithprime(j)) do j := j+1 ; od ; a := [op(a), op(1, r)] ; r := [op(r), ithprime(j)] ; T := [op(T), op(r)] ; n := n+1 ; od ; RETURN(a) ; end: a := A082739(80) : for n from 1 to nops(a) do printf("%d, ", op(n, a)) ; od ; - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Nov 12 2006
|
|
CROSSREFS
|
Cf. A082737, A082738, A082740.
Sequence in context: A070174 A080153 A040124 this_sequence A158017 A091310 A040994
Adjacent sequences: A082736 A082737 A082738 this_sequence A082740 A082741 A082742
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Apr 14 2003
|
|
EXTENSIONS
|
More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Nov 12 2006
|
|
|
Search completed in 0.002 seconds
|
