A268279 Primes p such that both p and p^2 contain "123" as a substring.

50123, 98123, 335123, 352123, 501233, 598123, 1012379, 1060123, 1109123, 1112323, 1112333, 1112339, 1112341, 1112351, 1112359, 1112369, 1112381, 1112383, 1112389, 1236173, 1239001, 1781239, 2471237, 2903123, 3351233, 3412391, 3511237, 3512303, 3512309, 3512317

Offset

1,1

Links

Zak Seidov, Table of n, a(n) for n = 1..212

Mathematica

Select[Prime@ Range[30, 3*10^5], AllTrue[{#, #^2}, Length@ SequencePosition[IntegerDigits@ #, {1, 2, 3}] > 0 &] &] (* Michael De Vlieger, Feb 01 2016, Version 10.1 *)

Crossrefs

Subsequence of A268278 and of A178314.

Sequence in context: A271115 A269475 A160932 * A202490 A105001 A237949

Adjacent sequences: A268276 A268277 A268278 * A268280 A268281 A268282

Keyword

nonn,base

Author

Zak Seidov, Jan 29 2016

Status

approved