|
|
A057236
|
|
Numbers n such that n | 5^n + 4^n + 3^n.
|
|
0
|
|
|
1, 2, 3, 9, 10, 27, 50, 81, 230, 243, 250, 310, 610, 729, 1250, 1550, 2187, 3050, 4850, 6250, 6561, 7550, 7750, 9610, 15250, 18910, 19683, 20450, 31041, 31250, 31671, 35650, 37210, 37750, 38750, 48050, 58833, 59049, 76250, 94550
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[ Range[ 10^5 ], Mod[ PowerMod[ 5, #, # ] + PowerMod[ 4, #, # ] + PowerMod[ 3, #, # ], # ] == 0 & ]
Select[Range[100000], Mod[Total[PowerMod[Range[3, 5], #, #]], #]==0&] (* Harvey P. Dale, Feb 23 2023 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|