OFFSET
1,1
COMMENTS
Prime factors counted with multiplicity. - Harvey P. Dale, Jul 25 2013
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..88 (terms < 10^11)
EXAMPLE
15 = 3*5 and 2^15 = 3+5 (mod 15).
MATHEMATICA
Select[Range[2500000], Total[Flatten[Table[#[[1]], {#[[2]]}]&/@ FactorInteger [#]]] ==PowerMod[2, #, #]&] (* Harvey P. Dale, Jul 25 2013 *)
CROSSREFS
KEYWORD
nonn,easy,nice
AUTHOR
Joe K. Crump (joecr(AT)carolina.rr.com)
STATUS
approved