1,1

Table of n, a(n) for n=1..59.

(PARI) select(p->issquare(Mod(p, 31))&&isprime(p), [1..1000]) \\ This is to provide a generic characteristic function as 1st arg of select(), there are other ways to produce the sequence more efficiently. - M. F. Hasler, Jan 15 2016

Cf. A191040.

Sequence in context: A108413 A042449 A046115 * A089443 A191024 A215212

Adjacent sequences: A267478 A267479 A267480 * A267482 A267483 A267484

nonn

M. F. Hasler, Jan 15 2016

approved