login
A268279
Primes p such that both p and p^2 contain "123" as a substring.
1
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
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
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Jan 29 2016
STATUS
approved