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-2 of 2 results.

A103752 Erroneous version of: Primes from merging of 10 successive digits in decimal expansion of the Golden Ratio: (1+sqrt(5))/2.

Original entry on oeis.org

1885371871, 1467894749, 1927385857, 1044320141, 1696498873, 1208796539, 1404814871, 1388362561, 1165339067, 1653392113, 1112115161, 1678526879, 1021710497, 1225884823, 1092051469, 2035361123, 1439829827, 1122708877
Offset: 0

Views

Author

Andrew G. West (WestA(AT)wlu.edu), Mar 29 2005

Keywords

Comments

What is this sequence? The correct version is A198177. - Bruno Berselli, May 01 2013
All terms are less than 2^31, this seems to indicate that the author made calculations with signed 32-bit integers, similar to A105383. But in contrast to that sequence, none of the terms here is obtained by using this procedure (taking mod 2^32 and selecting primes between 10^9 and 2^31). Does the present sequence rather relate to a different constant? - M. F. Hasler, Nov 01 2014

Crossrefs

Cf. A198177.

Extensions

Broken URL to Project Gutenberg replaced by Georg Fischer, Jan 03 2009

A225143 Primes from merging of 10 successive digits in decimal expansion of Pi^2/6.

Original entry on oeis.org

9499012067, 4990120679, 3040043189, 1896233719, 2337190679, 9628724687, 2510068721, 8721400547, 9681155879, 5587948903, 7564558769, 9632356367, 3235636709, 3200805163, 4445184059, 3876314227, 2276587939, 1979084773, 9420451591, 9120818099, 9345444877
Offset: 1

Views

Author

Bruno Berselli, Apr 30 2013

Keywords

Comments

Leading zeros are not permitted, so each prime is 10 digits in length. The terms are listed in the order in which they occur.

Crossrefs

Programs

  • Mathematica
    With[{len = 10}, FromDigits /@ Select[Partition[RealDigits[Zeta[2], 10, 500][[1]], len, 1], PrimeQ[FromDigits[#]] && IntegerLength[FromDigits[#]] == len &]]
Showing 1-2 of 2 results.