cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-4 of 4 results.

A134245 Terms in A007468 which are multiples of their indices.

Original entry on oeis.org

2, 8, 88, 384, 1056, 2310, 207936, 417219, 2978610, 6215400, 9216124, 205006774, 255230655, 576178034, 1157525280, 2038109955, 3053762208, 10584038058, 25042362120, 1025402527504, 2304427934330, 11623068703428
Offset: 1

Views

Author

Enoch Haga, Oct 15 2007, Oct 16 2007

Keywords

Comments

If A007468(j) is a multiple of j, we add A007468(j) to this sequence. This sequence is a subsequence of A007468. - R. J. Mathar, Nov 16 2007

Examples

			3+5=8 is a multiple of i=2 and is added to the sequence. 7+11+13 is not a multiple of 3 and is skipped. 17+19+23+29=88 is a multiple of 4 and is added to the sequence. 31+37+41+43+47=199 is not a multiple of 5 and is skipped.
		

Crossrefs

Programs

Formula

a(n) = A007468(A134244(n)).

Extensions

Edited and corrected by R. J. Mathar, Nov 16 2007
Corrected by R. J. Mathar, Nov 16 2007
Edited by Max Alekseyev, Nov 08 2011

A134244 Indices k such that k divides A007468(k).

Original entry on oeis.org

1, 2, 4, 6, 8, 10, 38, 47, 86, 108, 122, 322, 345, 446, 556, 665, 756, 1122, 1476, 4838, 6274, 10556, 12383, 38774, 42776, 46239, 210215, 232276, 517144, 1125321, 2561652
Offset: 1

Views

Author

Enoch Haga, Oct 15 2007, Oct 16 2007

Keywords

Crossrefs

Programs

  • PARI
    { p=2 ; i=1 ; for(j=1,13000, psum=p ; for(k=2,j, p=nextprime(p+1) ; psum += p ; ) ; if(psum % j ==0, print(j) ; ) ; p=nextprime(p+1) ; ) ; } \\ R. J. Mathar, Jan 24 2008

Extensions

Better definition from R. J. Mathar, Nov 16 2007
Entries checked by R. J. Mathar, Jan 24 2008
a(24)-a(26) from Max Alekseyev, Jul 29 2011
a(27)-a(28) from Chai Wah Wu, Jan 14 2020
a(29) from Chai Wah Wu, Jan 16 2020
a(30)-a(31) from Giovanni Resta, Jan 24 2020

A134179 Primes in A007468.

Original entry on oeis.org

2, 31, 199, 659, 1601, 5693, 38917, 51797, 84463, 697373, 8059169, 8510617, 9465251, 28268543, 36254039, 40121999, 48667219, 54973229, 63627491, 90443813, 97626083, 102534899, 110364689, 139100699, 161967391, 183528421, 219566989
Offset: 1

Views

Author

Enoch Haga, Oct 16 2007

Keywords

Crossrefs

Programs

  • Mathematica
    n = 1000; Select[Total /@ TakeList[Prime[Range@(n(n+1)/2)], Range@n], PrimeQ] (* Zhining Yang, May 22 2023 *)
  • UBASIC
    10 K=1
    20 A=nxtprm(A):B=B+A:C=C+1: if C<>K then 20:else 30
    30 L=B/K
    31 print K;B;:Q=prmdiv(B): if Q=B then print B;"-":stop:else 40
    40 B=0:K=K+1:C=0:goto 20

Extensions

Edited by Zak Seidov, Feb 05 2010

A134180 Indices of primes in A007468.

Original entry on oeis.org

1, 3, 5, 7, 9, 13, 23, 25, 29, 55, 117, 119, 123, 173, 187, 193, 205, 213, 223, 249, 255, 259, 265, 285, 299, 311, 329, 351, 393, 397, 411, 483, 487, 513, 515, 525, 563, 587, 597, 607, 637, 645, 647, 679, 709, 789, 871, 877, 911, 953, 971, 985, 1015, 1051, 1075
Offset: 1

Views

Author

Enoch Haga, Oct 16 2007

Keywords

Comments

Compute sums of k distinct sequential primes (no overlap). If the sums are prime add their indices to the sequence.

Examples

			a(2)=3 because this k value is the index for the next 3 primes in sequence to be summed. k=1 is 2, k=2 is 3+5 and k=3 is 7+11+13=31. The sums at k=1 and k=3 are prime, while k=2 is composite.
		

Crossrefs

Cf. A007468. Corresponding primes are listed in A134179.

Programs

  • UBASIC
    10 K=1
      20 A=nxtprm(A): B=B+A: C=C+1: if C<>K then 20: else 30
      30 L=B/K
      31 print K;B;: Q=prmdiv(B): if Q=B then print B; "-": stop: else 40
      40 B=0: K=K+1: C=0: goto 20
Showing 1-4 of 4 results.