OFFSET
0,2
MATHEMATICA
lpn[n_]:=Module[{k=1}, While[PowerMod[2, k, k]!=2n, k++]; k]; Array[lpn, 60, 0] (* Harvey P. Dale, Jul 23 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, May 11 2007, Jul 18 2008
EXTENSIONS
New definition from Benoit Jubin, Jul 17 2008
More terms from Max Alekseyev, May 08 2009
STATUS
approved