|
|
A283561
|
|
Concatenation of the first a(n) nonsquares gives a prime.
|
|
1
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Indices n for which A283560(n) is prime.
Next term, if there is, will be more than 6100.
|
|
LINKS
|
|
|
MATHEMATICA
|
cns[n_]:=FromDigits[Flatten[IntegerDigits[Table[k+Floor[1/2+Sqrt[k]], {k, 1, n}]]]]
Select[Table[cns[n], {n, 6100}], PrimeQ]
|
|
PROG
|
(PARI) is(n)=my(s=""); for(k=1, n, s=Str(s, (sqrtint(4*k)+1)\2 + k)); ispseudoprime(eval(s)) \\ Charles R Greathouse IV, Mar 10 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|