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

61, 89, 83, 43, 11, 17, 17, 79, 13, 89, 97, 41, 89, 11, 13, 37, 47, 53, 89, 17, 23, 53, 31, 17, 79, 31, 67, 43, 89, 59, 59, 29, 83, 61, 13, 31, 19, 29, 67, 67, 89, 17, 71, 11, 43, 29, 31, 13, 61, 43, 97, 79, 47, 61, 53, 41, 43, 71, 13, 47, 67, 43, 47, 71, 17, 17, 79, 97, 83

Offset

1,1

Comments

Leading zeros are not permitted, so each term is 2 digits in length. - Harvey P. Dale, Oct 23 2011

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Eric Weisstein's World of Mathematics, The Golden Ratio.

Expansion of the Golden Ratio done to 20,000 digits as part of project Gutenberg.

Mathematica

With[{len=2}, FromDigits/@Select[Partition[RealDigits[GoldenRatio, 10, 1000][[1]], len, 1], PrimeQ[FromDigits[#]] && IntegerLength[ FromDigits[#]] == len&]] (* Harvey P. Dale, Oct 23 2011 *)

Crossrefs

Cf. A001622.

Sequence in context: A345239 A245759 A186457 * A047272 A123207 A309180

Adjacent sequences: A103809 A103810 A103811 * A103813 A103814 A103815

Keyword

nonn,base

Author

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

Extensions

Offset changed from 0 to 1 by Vincenzo Librandi, Apr 22 2013

Status

approved