A198162 Primes from merging of 2 successive digits in decimal expansion of sqrt(2).

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

Offset: 1

Author

Harvey P. Dale, Oct 21 2011

Keywords

• nonn
• base

Comments

Leading zeros are not permitted, so each term is 2 digits in length.

Links

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

Crossrefs

Cf. A103773, A103789, A103793, A103808, A103809, A103810, A103811, A103812, A104824, A104825, A104826, A104843, A104844, A104845, A104846, A104847, A104848, A104849, A104850, A198161, A198163, A198164, A198165, A198166, A198167, A198168, A198169, A198170, A198171, A198172, A198173, A198174, A198175, A104851, A198177.

Programs

Mathematica

With[{len=2},Select[FromDigits/@Partition[RealDigits[Sqrt[2],10,1000][[1]],len,1],IntegerLength[#]==len&&PrimeQ[#]&]]