OFFSET
1,1
COMMENTS
EXAMPLE
MAPLE
a:=proc(n) option remember; local k, l, p: p:=ithprime(n): l:=0: for k from 0 to p-2 do if A051301(k)=p then l:=l+1; fi; od; l+1; end;
MATHEMATICA
prev={}; Table[p=Prime[n]; s=Select[Complement[Range[0, p-1], prev], Mod[ #!+1, p]==0&]; prev=Union[s, prev]; Length[s], {n, 100}] (* T. D. Noe, May 12 2009 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Frederick Magata (frederick.magata(AT)web.de), May 05 2009
EXTENSIONS
Extended by T. D. Noe, May 12 2009
STATUS
approved