finite sequences

[Artur]

%S A000001 5,7,13,19,23,31,43,47,73,83,109,113
%N A000001 Primes which have only non-negative amplitudes defined as  
((Prime[k + n] + Prime[k - n])/2) - Prime[k] for k=3,4,5,...,  
n=1,2,..,k-3,k-2
%e A000001 31 belonging because all amplitudes are non-negative {2, 1, 0,  
1, 2, 4, 3, 5,
6} 29 don't belonging because some amplitudes are negative {-2, -1, 0, -1,  
0, 1, 3, 3}
%O A000001 1
%K A000001 ,nonn,
%A A000001 Artur Jasinski (grafix at csl.pl), Dec 23 2006


Dnia 23-12-2006 o 11:42:17 Artur <grafix at csl.pl> napisał(a):

> D%I A126244
> %S A126244 137, 135, 138, 132, 133, 135, 135, 137, 138, 135, 137, 136,  
> 135, 135, 139,
> 142, 143, 141, 140, 141, 141, 144, 144, 146, 146, 145, 147, 147, 147,  
> 150,
> 156, 157
> %N A126244 numbers which are the arithmetic mean of n-th prime > 137 and  
> n-th prime < 137
> %C A126244 Number 137 is 33-th prime number. Arithmetic mean with first  
> prime isn't integer.
> %t A126244 Table[(Prime[33 + n] + Prime[33 - n])/2, {n, 0, 31}] (*Artur  
> Jasinski*)
> %Y A126244 A126243
> %O A126244 0
> %K A126244 ,fini,nonn,
> %A A126244 Artur Jasinski (grafix at csl.pl), Dec 23 2006
>
> __________ NOD32 Informacje 1935 (20061222) __________
>
> Wiadomosc zostala sprawdzona przez System Antywirusowy NOD32
> http://www.nod32.com lub http://www.nod32.pl
>