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.

A241245 Primes obtained by merging 4 successive digits in decimal expansion of sqrt (5).

This page as a plain text file.
%I A241245 #11 Mar 25 2018 08:16:34
%S A241245 6067,7499,8969,4091,9173,8731,5209,9941,2749,4969,5081,5077,4253,
%T A241245 2677,4447,3863,2153,7817,3191,9187,1879,6581,8053,1753,5003,2339,
%U A241245 9241,3253,2539,2887,6299,8161,7759,2371,3907,7297,8641,2689,4099,3169,1693,7019,7541,5413
%N A241245 Primes obtained by merging 4 successive digits in decimal expansion of sqrt (5).
%C A241245 All the terms in the sequence are 4-digit primes because leading zeros are not permitted.
%H A241245 K. D. Bajpai, <a href="/A241245/b241245.txt">Table of n, a(n) for n = 1..1514</a>
%t A241245 With[{s5=FromDigits/@Partition[RealDigits[Sqrt[5],10,500][[1]],4,1]}, Select[ s5,IntegerLength[#]==4&&PrimeQ[#]&]] (* _Harvey P. Dale_, Mar 25 2018 *)
%Y A241245 Cf. A198161, A198162, A198163, A198164, A198165, A198166, A198169, A241149.
%K A241245 nonn,base
%O A241245 1,1
%A A241245 _K. D. Bajpai_, Apr 18 2014
%E A241245 Mathematica program corrected by _Harvey P. Dale_, Mar 25 2018