|
|
A050236
|
|
Indices of consecutive squares palindromic primes; x such that x^2 + (x+1)^2 is palindromic and prime.
|
|
3
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
Flatten[Position[Total/@Partition[Range[1300]^2, 2, 1], _?(PrimeQ[#] && IntegerDigits[#]==Reverse[IntegerDigits[#]]&)]] (* Harvey P. Dale, Dec 09 2014 *)
|
|
PROG
|
(PARI) isok(m) = my(p=m^2+(m+1)^2); if (isprime(p), my(d=digits(p)); (d == Vecrev(d))); \\ Michel Marcus, Jan 05 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,nice,hard,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|