A103773 Primes from merging of 9 successive digits in decimal expansion of the Golden Ratio, (1+sqrt(5))/2.
398874989, 752126633, 250171169, 222104321, 626296313, 381497587, 587012203, 408058879, 410443207, 104432077, 850987433, 433944221, 798731761, 523689427, 287856997, 165339247, 115881863, 993432359, 509040947, 116456299, 602017279, 471753427, 827505131, 248093947
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
- Eric Weisstein's World of Mathematics, Golden Ratio.
- Expansion of the Golden Ratio done to 20,000 digits as part of project Gutenberg.
Crossrefs
Cf. A001622.
Programs
-
Mathematica
Select[FromDigits/@Partition[RealDigits[GoldenRatio,10,2000][[1]],9,1], IntegerLength[#]==9&&PrimeQ[#]&] (* Harvey P. Dale, Mar 19 2011 *)
Extensions
Broken URL to Project Gutenberg replaced by Georg Fischer, Jan 03 2009
Extended by Harvey P. Dale, Mar 19 2011
Comments