OFFSET

1,4

LINKS

G. C. Greubel, Table of n, a(n) for n = 1..10000

Eric Weisstein's World of Mathematics, Quadratic Residue.

EXAMPLE

Triangle starts:

1;

1;

1,3,4,5,9;

1,3,4,9,10,12;

...

Modulo A123239(3)=11, the quadratic residues are 1,3,4,5,9.

MATHEMATICA

MangammalQ[p_]:=Block[{k=3}, While[k>2, k=Mod[3k, p]]; k!=2];

A123239=Select[Prime[Range[17]], MangammalQ];

CROSSREFS

KEYWORD

nonn,tabf

AUTHOR

A.K. Devaraj, Oct 20 2009

EXTENSIONS

Edited by N. J. A. Sloane, Oct 22 2009

Edited by Charles R Greathouse IV, Oct 28 2009

Edited, corrected and extended by Ray Chandler, Jul 21 2011

STATUS

approved