login
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
OFFSET
1,1
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
Cf. A066591.
Sequence in context: A165944 A100557 A066591 * A353102 A068493 A167535
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Apr 23 2001
EXTENSIONS
Corrected and extended by Jason Earls, May 17 2005
Edited by N. J. A. Sloane, Aug 29 2008 at the suggestion of R. J. Mathar
STATUS
approved