OFFSET
1,1
REFERENCES
M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, 1964 (and various reprintings), p. 844.
LINKS
M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].
EXAMPLE
For k=2, 2*10^2 + 1 = 201 = 3*67.
For k=4, 4*10^4 + 1 = 40001 = 13*17*181.
MAPLE
with(numtheory):for k from 1 to 100 do: n:=k*10^k +1:if type(n, prime) = false then print(n):else fi:od:
MATHEMATICA
Select[Table[k*10^k+1, {k, 1, 20}], CompositeQ] (* Amiram Eldar, Aug 14 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Mar 01 2010
EXTENSIONS
a(16)-a(17) added and name corrected by Amiram Eldar, Aug 14 2023
STATUS
approved