OFFSET
4,1
COMMENTS
A prime number prime(n) is in the sequence if the arithmetic mean of the 4 nearby primes, measured by A034963(n-2)/4, equals one plus the prime. - R. J. Mathar, Nov 15 2019
EXAMPLE
113 is in the list because the arithmetic mean of 107, 109, 113, and 127 is A034963(28)/4 = 456/4 = 114, and 114 = 1+113.
MATHEMATICA
a=Table[If[(Prime[n-3]+Prime[n-2]+Prime[n-1]+Prime[n])/4-Prime[n-1]-1==0, Prime[n-1], 0], {n, 4, 2004}] a0=Delete[Union[Sort[a]], 1]
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Roger L. Bagula, Jun 17 2004
EXTENSIONS
Definition rephrased. - R. J. Mathar, Nov 15 2019
STATUS
approved