OFFSET
1,1
COMMENTS
EXAMPLE
6'=5, 2^5-1=31 = prime -> a(1) = 6
MAPLE
last:=120: der:=n->n*add(op(2, p)/op(1, p), p=ifactors(n)[2]): seq(`if`(isprime(2^(der(i))- 1)=true, i, NULL), i=2..last);
CROSSREFS
KEYWORD
nonn
AUTHOR
Giorgio Balzarotti, May 03 2011
EXTENSIONS
Extended by T. D. Noe, May 04 2011
STATUS
approved