login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A231809 Denominator of asymptotic density of Union{H_p: p is odd prime and p <= n-th prime}, where H_p is {K p(p-1)/2 : K integer}. 2
1, 3, 5, 5, 165, 165, 561, 561, 12903, 170085, 170085, 170085, 170085, 170085, 55957965, 141368472245, 25022219587365, 25022219587365, 25022219587365, 1776577590702915, 1776577590702915, 1776577590702915, 287890168626762845, 4749253940274679, 4749253940274679 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

a(n)= A231808(n)/A231809(n) is the asymptotic density of Union{H_p: p is odd prime and p <= n-th prime}, where H_p:={K p(p-1)/2 : K integer}; a(n) tends to 0.41.. (the asymptotic density of A229307 = Union{H_p: p odd prime}.

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[Denominator@densidad[lista[i]], {i, 1, 15}]

CROSSREFS

Cf. A008837, A229307, A231808.

Sequence in context: A019247 A320433 A165142 * A186969 A111950 A274792

Adjacent sequences:  A231806 A231807 A231808 * A231810 A231811 A231812

KEYWORD

nonn,hard

AUTHOR

José María Grau Ribas, Nov 13 2013

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 13 01:36 EDT 2021. Contains 342934 sequences. (Running on oeis4.)