A104301
Primes which are the reverse concatenation of two consecutive square numbers.
Original entry on oeis.org
41, 6449, 196169, 576529, 11561089, 14441369, 27042601, 38443721, 51845041, 60845929, 67246561, 84648281, 1081610609, 2073620449, 2190421609, 2822427889, 3240032041, 4000039601, 4326442849, 5017649729, 5290052441, 6250062001, 7507674529, 8294482369, 103684103041
Offset: 1
The first term is 41 which is a prime and is the reverse concatenation of 1 and 4 which are two consecutive square numbers.
-
cat[s_] := FromDigits[Flatten[IntegerDigits[s]]]; Select[cat /@ Reverse /@ Partition[Range[350]^2, 2, 1], PrimeQ] (* Amiram Eldar, Jul 15 2025 *)
-
from sympy import isprime
A104301_list = []
for n in range(1, 2000):
x = int(str((n+1)**2)+str(n**2))
if isprime(x):
A104301_list.append(x) # Chai Wah Wu, Sep 13 2014
A104302
Primes which are the reverse concatenation of three consecutive square numbers.
Original entry on oeis.org
941, 25169, 169144121, 302529162809, 110251081610609, 166411638416129, 497294928448841, 580815760057121, 930259241691809, 123201122500121801, 139129138384137641, 140625139876139129, 196249195364194481, 214369213444212521, 235225234256233289, 261121260100259081
Offset: 1
The first term is 941 which is a prime and is the reverse concatenation of 1, 4 and 9 which are three consecutive square numbers.
-
Select[FromDigits[Flatten[IntegerDigits/@#]]&/@(Reverse/@Partition[Range[500]^2,3,1]),PrimeQ] (* Harvey P. Dale, Sep 21 2024 *)
A104303
Primes which are the reverse concatenation of four consecutive square numbers.
Original entry on oeis.org
576529484441, 7056688967246561, 34596342253385633489, 49284488414840047961, 202500201601200704199809, 230400229441228484227529, 260100259081258064257049, 389376388129386884385641, 527076525625524176522729, 553536552049550564549081, 599076597529595984594441
Offset: 1
The first term is 576529484441 which is a prime and is the reverse concatenation of 441, 484, 529 and 576 which are four consecutive square numbers.
-
Select[FromDigits[Flatten[IntegerDigits/@#]]&/@(Reverse/@Partition[ Range[ 1000]^2,4,1]),PrimeQ] (* Harvey P. Dale, Sep 07 2020 *)
Showing 1-3 of 3 results.