|
%I #22 Jul 23 2023 01:53:14
%S 1,2,5,25,38,85,125,625,722,2225,3125,5825,13718,15625,16502,51325,
%T 53125,60625,78125,155125,260642,313538,315514,390625,739925,1953125,
%U 4097125,4952198,5260202,5265625,5931914,5957222,9603322,9765625
%N Numbers k that divide 5^k + 3^k + 2^k.
%H Zak Seidov, <a href="/A220170/b220170.txt">Table of n, a(n) for n = 1..63</a> (all terms up to 2*10^9)
%t Select[Range[1000000], Mod[PowerMod[5, #, #] + PowerMod[3, #, #] + PowerMod[2, #, #], #] == 0 &] (* _T. D. Noe_, Dec 06 2012 *)
%Y Cf. A045576 (numbers k that divide 3^k + 2^k).
%K nonn
%O 1,2
%A _Zak Seidov_, Dec 06 2012
|
