A282445 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Other ways to Give

A282445

For n>=5, a(n) is the smallest m>=3 such that odd part of ((prime(n)^2 - prime(m)^2)/3) is prime, or a(n)=0 if there is no such m<n.

4, 3, 3, 3, 4, 3, 4, 3, 4, 3, 7, 3, 12, 6, 8, 4, 13, 7, 8, 4, 11, 3, 20, 5, 6, 22, 11, 23, 13, 16, 14, 9, 10, 10, 24, 29, 6, 40, 31, 0, 3, 4, 40, 11, 32, 45, 13, 7, 30, 3, 53, 20, 6, 30, 35, 27, 54, 26, 0, 63, 46, 57, 16, 67, 67, 38, 0, 39, 52, 5, 61, 75, 3

(list; graph; refs; listen; history; text; internal format)

OFFSET

5,1

COMMENTS

a(n) = 0 for n: 44, 63, 71, 80, 89, 95, 97, 108, 118, 122, 132, 141, 150, etc. Robert G. Wilson v, Feb 15 2017

LINKS

Table of n, a(n) for n=5..77.

EXAMPLE

Let n=9, prime(9)=23. If m=3, then odd part of (23^2 - 5^2)/24 is 21, while if m=4, then odd part of (23^2 - 7^2)/24 is 5 which is prime. So a(9)=4.

MATHEMATICA

f[n_] := Block[{m = 3, p = Prime[n]^2}, While[q = (p - Prime[m]^2)/3; m < n && ! PrimeQ[q/2^IntegerExponent[q, 2]], m++]; If[m < n, m, 0]]; Array[f, 73, 5] (* Robert G. Wilson v, Feb 15 2017 *)

CROSSREFS

Cf. A000265, A024702, A075888, A282594.

Sequence in context: A374419 A059124 A320604 * A281705 A026858 A188885

Adjacent sequences: A282442 A282443 A282444 * A282446 A282447 A282448

KEYWORD

nonn

AUTHOR

Vladimir Shevelev, Feb 15 2017

EXTENSIONS

More terms from Peter J. C. Moses, Feb 15 2017

STATUS

approved