|
%I #7 May 17 2018 05:31:12
%S 11,41,97,163,251,367,491,641,811,1009,1213,1447,1693,19603,2251,
%T 25601,2897,32401,3613,4001,44101,48407,5297,57601,6257,6761,7297,
%U 7841,8419,9001,9613,10243,10891,115601,12251,12967,13691,14447,15217,16001
%N Smallest prime that begins with the n-th square in decimal notation.
%H Robert Israel, <a href="/A065145/b065145.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A030665(n^2). - _Robert Israel_, May 16 2018
%p f:= proc(n) local d,m,r;
%p for d from 1 do
%p for m from 1 to 10^d-1 by 2 do
%p r:= 10^d*n^2 + m;
%p if isprime(r) then return r fi
%p od od
%p end proc:
%p map(f, [$1..100]); # _Robert Israel_, May 16 2018
%Y Cf. A030665, A062584, A000290, A000040, A065144.
%K base,nonn
%O 1,1
%A _Reinhard Zumkeller_, Oct 17 2001
|
