OFFSET
1,1
LINKS
Jinyuan Wang, Table of n, a(n) for n = 1..1000
FORMULA
MATHEMATICA
ric[d_] := PrimeQ@ FromDigits@ d || AnyTrue[ TakeDrop[d, #] & /@ Range[ Length[d] - 1], #[[2, 1]] > 0 && PrimeQ@ FromDigits@ #[[1]] && ric@ #[[2]] &]; ok[n_] := If[ EvenQ[n] && Mod[n, 10] != 2, False, ric@ IntegerDigits@ n]; Select[ Range[300]^2, ok] (* Giovanni Resta, Mar 16 2020 *)
PROG
(PARI) forstep(n=1, 300, 2, is_A152242(n^2) & print1(n^2, ", ")) \\ M. F. Hasler, Mar 19 2012
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Edited by N. J. A. Sloane, Oct 18 2009, incorporating corrections from M. F. Hasler and Zak Seidov.
STATUS
approved