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.

A103811 Primes from merging of 3 successive digits in decimal expansion of the Golden Ratio, (1+sqrt(5))/2.

This page as a plain text file.
%I A103811 #26 Feb 16 2025 08:32:56
%S A103811 887,683,563,811,179,227,281,449,911,113,137,521,223,353,317,179,607,
%T A103811 263,443,433,389,659,593,829,563,383,661,613,131,199,829,269,631,313,
%U A103811 443,149,587,701,887,547,461,569,953,449,241,443,449,947,467,509,743
%N A103811 Primes from merging of 3 successive digits in decimal expansion of the Golden Ratio, (1+sqrt(5))/2.
%C A103811 Leading zeros are not permitted, so each term is 3 digits in length. - _Harvey P. Dale_, Oct 23 2011
%H A103811 Vincenzo Librandi, <a href="/A103811/b103811.txt">Table of n, a(n) for n = 1..1000</a>
%H A103811 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/GoldenRatio.html">The Golden Ratio</a>.
%H A103811 <a href="http://www.gutenberg.org/ebooks/634">Expansion of the Golden Ratio</a> done to 20,000 digits as part of project Gutenberg.
%t A103811 With[{len=3},FromDigits/@Select[Partition[RealDigits[GoldenRatio,10, 1000][[1]],len,1],PrimeQ[FromDigits[#]] && IntegerLength[ FromDigits[#]] == len&]] (* _Harvey P. Dale_, Oct 23 2011 *)
%Y A103811 Cf. A001622.
%K A103811 nonn,base
%O A103811 1,1
%A A103811 Andrew G. West (WestA(AT)wlu.edu), Mar 29 2005
%E A103811 Offset changed from 0 to 1 by _Vincenzo Librandi_, Apr 22 2013