

A061246


Prime numbers with every digit a perfect square, i.e., consisting of only digits 0, 1, 4, 9.


9



11, 19, 41, 101, 109, 149, 191, 199, 401, 409, 419, 449, 491, 499, 911, 919, 941, 991, 1009, 1019, 1049, 1091, 1109, 1409, 1499, 1901, 1949, 1999, 4001, 4019, 4049, 4091, 4099, 4111, 4409, 4441, 4909, 4919, 4999, 9001, 9011, 9041, 9049, 9091, 9109, 9199
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS



EXAMPLE

a(10) = 419, 419 is a prime and 1, 4 and 9 are squares.


MATHEMATICA

Select[FromDigits/@Tuples[{0, 1, 4, 9}, 4], PrimeQ] (* Harvey P. Dale, Sep 22 2019 *)


PROG

(Python)
from itertools import product
from sympy import isprime
A061246_list = [int(i+''.join(j)+k) for l in range(10) for i in '149' for j in product('0149', repeat=l) for k in '19' if isprime(int(i+''.join(j)+k))] # Chai Wah Wu, Jan 19 2019


CROSSREFS



KEYWORD

base,nonn


AUTHOR



EXTENSIONS



STATUS

approved



