|
Search: id:A066618
|
|
|
| A066618 |
|
Both n and its reverse are one more than a square and n does not end in 0. |
|
+0
2
|
|
| 1, 2, 5, 101, 626, 5477, 7745, 10001, 1000001, 1010026, 1040401, 2217122, 2676497, 5053505, 6200101, 7946762, 100000001, 101808101, 10000000001, 10180608202, 10182828101, 10408080401, 20280608101, 26573890226, 26995147205
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
EXAMPLE
|
7745 = 88^2 + 1 and 5477 = 74^2 + 1
|
|
MATHEMATICA
|
dtn[L_] := Fold[10#1+#2&, 0, L] A={}; For[i=1, i>0, i++, t=dtn[Reverse[IntegerDigits[i^2+1]]]; If[IntegerQ[(t-1)^(1/2)]&&Mod[i^2, 10]=!=9, AppendTo[A, i^2+1]; Print[A]]]
|
|
CROSSREFS
|
Sequence in context: A093308 A162569 A120800 this_sequence A027720 A132482 A136106
Adjacent sequences: A066615 A066616 A066617 this_sequence A066619 A066620 A066621
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Erich Friedman (efriedma(AT)stetson.edu), Jan 08 2002
|
|
|
Search completed in 0.002 seconds
|
