The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #15 Feb 16 2021 01:04:33
%S 50123,98123,335123,352123,501233,598123,1012379,1060123,1109123,
%T 1112323,1112333,1112339,1112341,1112351,1112359,1112369,1112381,
%U 1112383,1112389,1236173,1239001,1781239,2471237,2903123,3351233,3412391,3511237,3512303,3512309,3512317
%N Primes p such that both p and p^2 contain "123" as a substring.
%H Zak Seidov, <a href="/A268279/b268279.txt">Table of n, a(n) for n = 1..212</a>
%t 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 *)
%Y Subsequence of A268278 and of A178314.
%K nonn,base
%O 1,1
%A _Zak Seidov_, Jan 29 2016