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