A109181 a(n) = A003132(A052034(n)).

2, 13, 17, 37, 73, 2, 11, 11, 59, 59, 131, 83, 131, 163, 17, 89, 11, 19, 59, 19, 67, 43, 67, 139, 139, 17, 97, 41, 113, 53, 61, 101, 37, 53, 61, 101, 73, 109, 131, 67, 139, 107, 179, 149, 109, 137, 83, 163, 139, 131, 179, 163, 211, 11, 83, 11, 19, 83, 131, 11, 83, 47, 67, 103, 11, 19, 59, 47, 107, 43, 67, 107, 179, 47, 127, 167, 199, 131, 67, 163

Offset

1,1

Comments

For the primes p see A052034.

Links

Zak Seidov, Table of n, a(n) for n = 1..10000

Formula

a(n) = A003132(A052034(n)). - Zak Seidov, Dec 30 2013

Example

q=13 is a term because 13 = 2^2 + 3^2 and merging digits 2 and 3 makes p=23, which is a prime.

Maple

a:=proc(n) local nn, L: nn:=convert(n, base, 10): L:=nops(nn): if isprime(n) = true and isprime(add(nn[j]^2, j=1..L))=true then add(nn[j]^2, j=1..L) else end if end proc: seq(a(n), n=1..1200); # Emeric Deutsch, Jan 08 2008

Crossrefs

Cf. A003132, A052034.

Sequence in context: A177964 A174050 A122487 * A175448 A067522 A128852

Adjacent sequences: A109178 A109179 A109180 * A109182 A109183 A109184

Keyword

base,nonn

Author

Zak Seidov, Jun 21 2005

Extensions

More terms from Emeric Deutsch and Alvin Hoover Belt, Jan 08 2008

Status

approved