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

Author

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

Keywords

• nonn
• base

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.

Crossrefs

Cf. A001622.

Programs

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 *)

Extensions

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