|
%I #13 Jan 24 2020 09:54:15
%S 7007,7117,7227,7337,7447,7557,7667,7777,7887,7997,710107,711117,
%T 712127,713137,714147,715157,716167,717177,718187,719197,720207,
%U 721217,722227,723237,724247,725257,726267,727277,728287,729297,730307
%N a(n) is the decimal expansion of 7nn7.
%H Daniel Starodubtsev, <a href="/A100897/b100897.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) = 7nn7.
%e If n=6, 7nn7 is 7667.
%e If n=15, 7nn7 is 715157 (a prime)
%e If n=18, 7nn7 is 718187 (a prime)
%e If n=19, 7nn7 is 719197 (a prime)
%p a:= n-> parse(cat(7,n,n,7)):
%p seq(a(n), n=0..35); # _Alois P. Heinz_, Jan 24 2020
%t Table[idn=IntegerDigits[n];FromDigits[Join[{7},idn,idn,{7}]],{n,0,30}] (* _Harvey P. Dale_, May 14 2013 *)
%Y Cf. A100846.
%K nonn,base,easy
%O 0,1
%A _Parthasarathy Nambi_, Jan 10 2005
|
