OFFSET
1,3
COMMENTS
LINKS
José María Grau Ribas, Table of n, a(n) for n = 1..40
Jose María Grau, A. M. Oller-Marcen, and J. Sondow, On the congruence 1^n + 2^n +... + n^n = d (mod n), where d divides n
EXAMPLE
0, 1/3, 2/5, 2/5, 67/165, 67/165, 230/561, 230/561, 5317/12903, 70307/170085, 70307/170085, 70307/170085, 70307/170085, 70307/170085, 23158993/55957965, 58560723101/141368472245, 10373287618037/25022219587365, ....
MATHEMATICA
<< DiscreteMath`Combinatorica` (*ver 5.0*)
<< Combinatorica` (*ver 8.0*)
fa[n_] := FactorInteger[n]; lcm[lis_] := lcm[lis] = {aux = 1; Do[aux = LCM[aux, lis[[i]]], {i, 1, Length@lis}]; aux}[[1]]; inclusexclus[lis_] := inclusexclus[lis] =Sum[(-1)^(1 + Length[lis[[i]]])/lcm[lis[[i]]], {i, 1, Length@lis}]; densidad[lis_] := Sum[inclusexclus[KSubsets[lis, i]], {i, 1, Length[lis]}]; lista[n_] := Table[(Prime[i]^2 - Prime[i])/2, {i, 2, n}]; Table[Numerator@densidad[lista[i]], {i, 1, 15}]
CROSSREFS
KEYWORD
nonn,hard,frac
AUTHOR
José María Grau Ribas, Nov 13 2013
STATUS
approved