OFFSET
1,1
COMMENTS
Sequence A006559 with 2 and 5 included.
MAPLE
f1 := proc(n) local st, period:
st := ithprime(n):
period := numtheory[order](10, st):
if (st-1 <> period) then
RETURN(st):
fi: end: seq(f1(n), n=1..150);
CROSSREFS
KEYWORD
nonn
AUTHOR
Jani Melik, Feb 24 2011
STATUS
approved