A063455 Numbers n such that n | 9^n + 7^n + 5^n + 3^n.

1, 2, 3, 4, 9, 27, 51, 81, 82, 207, 243, 297, 729, 2187, 2277, 4131, 6561, 9668, 10233, 17457, 19683, 24057, 27028, 30699, 33777, 33849, 50301, 52351, 56727, 59049, 92097, 112102, 133837, 134297, 136809, 177147, 184437, 197667, 256243, 264357

Offset

1,2

Links

Table of n, a(n) for n=1..40.

Mathematica

Select[ Range[ 200000 ], Mod[ PowerMod[ 9, #, # ] + PowerMod[ 7, #, # ] + PowerMod[ 5, #, # ] + PowerMod[ 3, #, # ], # ] == 0 & ]

Prog

(PARI) j=[]; for(n=1, 20000, a=9^n+7^n+5^n+3^n; if(Mod(a, n) == 0, j=concat(j, n))); j

Crossrefs

Sequence in context: A073915 A076381 A282571 * A001144 A121253 A014118

Adjacent sequences: A063452 A063453 A063454 * A063456 A063457 A063458

Keyword

nonn

Author

Jason Earls, Jul 25 2001

Extensions

More terms from Robert G. Wilson v and Dean Hickerson, Jul 26 2001

Status

approved