|
%I #27 Sep 08 2022 08:45:13
%S 4,5,9,9,15,15,21,25,25,35,35,39,45,49,53,55,65,65,69,77,77,85,91,93,
%T 99,105,105,111,123,117,133,133,147,141,155,157,161,169,173,175,189,
%U 183,195,195,209,211,215,225,231,235,235,249,247,257,263,265,275,275,279
%N a(n) = prime(n) - prime(n+1) + prime(n+2).
%C Prime terms are balanced primes (A006562). - _Zak Seidov_, Mar 03 2019
%C a(n) = a(n+1) iff prime(n+3) - prime(n) = 2 * (prime(n+2) - prime(n+1)). It's not possible to get a(n) = a(n+1) = a(n+2). - _Bernard Schott_, Mar 03 2019
%H Harvey P. Dale, <a href="/A093667/b093667.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = A001223(n+1) + A000040(n). - _Michel Marcus_, Apr 17 2015
%t Table[Prime[n] + Prime[n + 2] - Prime[n + 1], {n, 75}]
%t #[[1]]-#[[2]]+#[[3]]&/@Partition[Prime[Range[70]],3,1] (* _Harvey P. Dale_, Oct 28 2018 *)
%o (Magma) [NthPrime(n)-NthPrime(n+1)+NthPrime(n+2): n in [1..60]]; // _Vincenzo Librandi_, Apr 17 2015
%o (PARI) vector(80, n, prime(n) - prime(n+1) + prime(n+2)) \\ _Michel Marcus_, Apr 17 2015
%Y Cf. A000040, A001223, A006562.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Apr 08 2004
|
