A066916 a(n) = n^phi(n) - 1.
0, 1, 8, 15, 624, 35, 117648, 4095, 531440, 9999, 25937424600, 20735, 23298085122480, 7529535, 2562890624, 4294967295, 48661191875666868480, 34012223, 104127350297911241532840, 25599999999, 7355827511386640, 26559922791423, 907846434775996175406740561328, 110075314175
Offset: 1
Keywords
Links
- Harry J. Smith, Table of n, a(n) for n = 1..100
Programs
-
Mathematica
Table[n^EulerPhi[n]-1,{n,30}] (* Harvey P. Dale, May 06 2015 *) -
PARI
a(n) = { n^eulerphi(n) - 1 } \\ Harry J. Smith, Apr 06 2010
Formula
a(n) = A062981(n) - 1.