The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A064104 Primes p = p(k) such that p(k) + p(k+11) = p(k+1) + p(k+10) = p(k+2) + p(k+9) = p(k+3) + p(k+8) = p(k+4) + p(k+7) = p(k+5) + p(k+6). 0
 137, 55787, 113131, 179021, 895789, 1150649, 3086003, 4026103, 4077559, 8021753, 8750857, 12577063, 14355559, 19136527, 19412863, 20065961, 21865339, 22633141, 25880177, 30404971, 33926159, 38202173, 41905891, 42925699 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS EXAMPLE 137 + 193 = 139 + 191 = 149 + 181 = 151 + 179 = 157 + 173 = 163 + 167. MATHEMATICA a = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; Do[ a = Delete[ a, 1 ]; a = Append[ a, Prime[ n ] ]; If[ a[ [ 1 ] ] + a[ [ 12 ] ] == a[ [ 2 ] ] + a[ [ 11 ] ] == a[ [ 3 ] ] + a[ [ 10 ] ] == a[ [ 4 ] ] + a[ [ 9 ] ] == a[ [ 5 ] ] + a[ [ 8 ] ] == a[ [ 6 ] ] + a[ [ 7 ] ], Print[ a[ [ 1 ] ] ] ], {n, 1, 10^6} ] okQ[n_]:=Length[Union[Take[n, 6]+Reverse[Take[n, -6]]]]==1; Transpose[ Select[Partition[Prime[Range[2700000]], 12, 1], okQ]][[1]] (* Harvey P. Dale, Apr 25 2011 *) CROSSREFS Cf. A022885. Sequence in context: A103878 A068154 A134874 * A300407 A122703 A200335 Adjacent sequences:  A064101 A064102 A064103 * A064105 A064106 A064107 KEYWORD easy,nonn AUTHOR Robert G. Wilson v, Sep 17 2001 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.

Last modified August 9 01:35 EDT 2020. Contains 336310 sequences. (Running on oeis4.)