login
A048388
Replacing digits d in decimal expansion of n with d^2 yields a prime.
4
11, 13, 17, 19, 21, 27, 51, 57, 71, 73, 81, 87, 89, 91, 101, 103, 107, 119, 123, 129, 131, 133, 137, 149, 153, 161, 167, 169, 173, 189, 191, 197, 199, 201, 203, 207, 213, 223, 229, 231, 233, 249, 253, 267, 283, 307, 311, 313, 319, 321, 331, 337, 341, 359, 371
OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1001 [offset shifted by Georg Fischer, Oct 14 2019]
EXAMPLE
199 = (1)(9)(9) -> (1)(81)(81) = 18181 which is a prime.
MATHEMATICA
Select[Range[400], PrimeQ[FromDigits[Flatten[IntegerDigits/@ (IntegerDigits[ #]^2)]]]&] (* Harvey P. Dale, Oct 13 2013 *)
CROSSREFS
Sequence in context: A138708 A061116 A333237 * A068191 A191599 A084374
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Mar 15 1999
STATUS
approved